Metrics for b from scale-rotated-ellipse

start0.0ms (0%)

Memory: 0.3MiB live, 0.3MiB allocated; 0ms collecting garbage

analyze2.0s (5%)

Memory

71.4MiB live, 1 846.0MiB allocated; 652ms collecting garbage

Algorithm

1×

Search

Probability	Valid	Unknown	Precondition	Infinite	Domain	Can't	Iter
0%	0%	99.8%	0.2%	0%	0%	0%	0
0%	0%	99.8%	0.2%	0%	0%	0%	1
0%	0%	99.8%	0.2%	0%	0%	0%	2
0%	0%	99.8%	0.2%	0%	0%	0%	3
0%	0%	99.8%	0.2%	0%	0%	0%	4
0%	0%	99.8%	0.2%	0%	0%	0%	5
0%	0%	99.8%	0.2%	0%	0%	0%	6
0%	0%	99.8%	0.2%	0%	0%	0%	7
0%	0%	99.8%	0.2%	0%	0%	0%	8
0%	0%	99.8%	0.2%	0%	0%	0%	9
0%	0%	99.8%	0.2%	0%	0%	0%	10
0%	0%	99.8%	0.2%	0%	0%	0%	11
0%	0%	99.8%	0.2%	0%	0%	0%	12

Compiler

Compiled 185 to 54 computations (70.8% saved)

sample15.3s (38.7%)

Memory

211.5MiB live, 15 735.6MiB allocated; 4.0s collecting garbage

Samples

6.8s	2 668×	3	valid
4.0s	2 761×	2	valid
2.6s	2 772×	1	valid
72.0ms	24×	4	valid
25.0ms	8×	4	exit
8.0ms	31×	0	valid

Precisions

Click to see histograms. Total time spent on operations: 12.8s

ival-cosu: 2.9s (22.6% of total)

ival-pow2: 2.4s (18.9% of total)

ival-sinu: 2.2s (17% of total)

adjust: 1.7s (13.4% of total)

ival-mult!: 1.6s (12.8% of total)

ival-div!: 1.1s (8.3% of total)

ival-sqrt: 370.0ms (2.9% of total)

ival-add!: 206.0ms (1.6% of total)

ival-sub!: 171.0ms (1.3% of total)

ival-neg: 150.0ms (1.2% of total)

Bogosity

explain2.4s (6.1%)

Memory

55.6MiB live, 3 575.0MiB allocated; 526ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
179	0	-	0	-	(/.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))))
177	1	(1.1196865366070069e-178 -1.3193223137849356e-262 2.075435470281447e-194 5.222534124515651e-107 1.1455609204096332e-21)	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)))))
126	0	-	0	-	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`
126	0	-	0	-	`(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`
56	0	-	2	(7.577480112327073e-203 2.102231465716687e+58 -8.000759539298031e+291 6.725674281817581e-265 -5.15863795467043e+108)	`(/.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)))`
54	0	-	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))))
41	0	-	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))
32	0	-	2	(-5.5173908809617996e-307 5.660237946570117e-157 -1.8741467089231454e+51 1.0423427563584125e-96 3.4571497224692007e-265)	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`
32	0	-	2	(-5.5173908809617996e-307 5.660237946570117e-157 -1.8741467089231454e+51 1.0423427563584125e-96 3.4571497224692007e-265)	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`
31	0	-	1	(-5.5173908809617996e-307 5.660237946570117e-157 -1.8741467089231454e+51 1.0423427563584125e-96 3.4571497224692007e-265)	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`
27	0	-	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))))`
27	0	-	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))))))
26	0	-	2	(8.544825887653217e-171 2.3614613171991298e+109 1.4473578423965513e-239 -4.622300343133994e+168 7.229675556037462e-230)	(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)))))))
25	0	-	0	-	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`
19	0	-	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))))`
17	0	-	0	-	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`
16	0	-	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)`
15	0	-	0	-	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`
0	0	-	0	-	`x-scale`
0	0	-	0	-	`(*.f64 b a)`
0	0	-	0	-	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	0	-	0	-	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	0	-	0	-	`(.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
0	0	-	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))))))))
0	0	-	0	-	`(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))`
0	0	-	0	-	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`
0	0	-	0	-	`(*.f64 x-scale y-scale)`
0	0	-	0	-	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`
0	0	-	0	-	`(*.f64 b (neg.f64 a))`
0	0	-	0	-	`(pow.f64 b #s(literal 2 binary64))`
0	0	-	0	-	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
0	0	-	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)))`
0	0	-	0	-	`(neg.f64 a)`
0	1	(-5.674701223964772e-283 1.1125438439210866e-162 -2.429341715250092e+202 -5.377822925914872e-204 1.9895446091113928e-203)	0	-	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`
0	0	-	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))
0	0	-	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))))`
0	0	-	0	-	`#s(literal 180 binary64)`
0	0	-	0	-	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
0	0	-	0	-	`angle`
0	0	-	0	-	`#s(literal 2 binary64)`
0	0	-	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))
0	0	-	0	-	`(.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`
0	0	-	0	-	`b`
0	0	-	0	-	`a`
0	0	-	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))))`
0	0	-	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)))
0	0	-	0	-	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	0	-	0	-	`(pow.f64 a #s(literal 2 binary64))`
0	0	-	0	-	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`
0	0	-	0	-	`(PI.f64)`
0	0	-	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)))`
0	0	-	0	-	`(/.f64 angle #s(literal 180 binary64))`
0	0	-	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))`
0	0	-	0	-	`#s(literal 4 binary64)`
0	0	-	0	-	`y-scale`
0	0	-	0	-	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`-.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)) (sqrt.f64 (+.f64 (pow.f64 (-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)) #s(literal 2 binary64)) (pow.f64 (/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale) #s(literal 2 binary64)))))	nan-rescue	145	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)`	overflow	90
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	96
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	59
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	62
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	90
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	37
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	87
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	88
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	88
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	96
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	37
↳	(+.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)))	overflow	185
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	overflow	90
↳	(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))	overflow	185
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	88
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	overflow	81
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	88
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	59
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	62
↳	(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))))	overflow	145
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	overflow	82
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(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))`	overflow	119
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	90
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	87
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
`sin.f64`	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	sensitivity	126	0
`cos.f64`	`(cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	sensitivity	126	0
`/.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/u	85	0
↳	(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)))))))	underflow	117
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	underflow	136
↳	(.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))))))	underflow	129
↳	`(*.f64 b a)`	underflow	78
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	28
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(*.f64 b (neg.f64 a))`	underflow	78
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	underflow	92
↳	`(.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))))`	underflow	106
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	underflow	96
↳	(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))	underflow	30
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	underflow	70
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	underflow	33
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	56
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	82
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	126
↳	(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))))	underflow	16
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	underflow	36
↳	(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))))))))	underflow	117
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(*.f64 x-scale y-scale)`	underflow	27
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	200
↳	`(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))`	underflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	52
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	158
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(.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))))`	underflow	87
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	204
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	62
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	underflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	`(/.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)))`	underflow	87
↳	(+.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)))	underflow	30
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
↳	`(*.f64 b a)`	underflow	39
↳	`(*.f64 b (neg.f64 a))`	underflow	39
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(*.f64 x-scale y-scale)`	underflow	27
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	79
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(/.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)))`	underflow	87
`/.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/o	67	0
↳	(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)))))))	overflow	74
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	74
↳	(+.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)))	overflow	185
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	overflow	15
↳	(.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))))))	overflow	86
↳	`(*.f64 b a)`	overflow	66
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(*.f64 b (neg.f64 a))`	overflow	66
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	overflow	180
↳	`(.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))))`	overflow	103
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	192
↳	(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))	overflow	185
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	176
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	overflow	81
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	176
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	118
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	124
↳	(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))))	overflow	145
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	overflow	82
↳	(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))))))))	overflow	74
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	78
↳	`(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))`	overflow	119
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	180
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	132
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(.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))))`	overflow	91
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	174
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
↳	`(/.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)))`	overflow	91
↳	`(*.f64 b a)`	overflow	33
↳	`(*.f64 b (neg.f64 a))`	overflow	33
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	66
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(/.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)))`	overflow	91
`-.f64`	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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-rescue	41	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)`	overflow	90
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	90
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	37
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	87
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	96
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	59
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	88
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	88
`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-rescue	40	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))))`	overflow	79
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	96
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	37
↳	(+.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)))	overflow	185
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	overflow	90
↳	(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))	overflow	185
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	88
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	overflow	81
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	88
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	59
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	62
↳	(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))))	overflow	145
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	overflow	82
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(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))`	overflow	119
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	90
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	87
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
`-.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)) (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)))))	cancellation	33	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))))`	*no**	25	0
`/.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/u	21	0
↳	`(*.f64 b a)`	underflow	39
↳	`(*.f64 b (neg.f64 a))`	underflow	39
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	79
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(*.f64 x-scale y-scale)`	underflow	27
`/.f64`	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n	20	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)))`	overflow	88
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	59
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
`/.f64`	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (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/n	20	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))))`	overflow	79
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
`/.f64`	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n	19	0
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	90
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	37
`*.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))))))	*ou**	18	0
↳	`(*.f64 b a)`	overflow	66
↳	`(*.f64 b (neg.f64 a))`	overflow	66
↳	`(.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))))`	overflow	103
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	132
↳	`(/.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)))`	overflow	91
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(.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))))`	overflow	91
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	28
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	underflow	96
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	underflow	136
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	underflow	92
↳	(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))	underflow	30
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	underflow	70
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	underflow	33
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	56
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	82
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	126
↳	(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))))	underflow	16
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	underflow	36
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	200
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(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))`	underflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	52
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	204
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	62
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	underflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	(+.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)))	underflow	30
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
`/.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/o	16	0
↳	`(*.f64 b a)`	overflow	33
↳	`(*.f64 b (neg.f64 a))`	overflow	33
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	66
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(*.f64 x-scale y-scale)`	overflow	25
`/.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/n	16	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))))`	overflow	79
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	overflow	81
`/.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/n	15	0
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	59
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	39
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	88
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	88
`-.f64`	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	nan-rescue	15	0
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
`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-rescue	14	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))))`	underflow	28
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	underflow	48
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	underflow	46
↳	(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))	underflow	30
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	underflow	35
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	underflow	33
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	28
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	64
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	41
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	63
↳	(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))))	underflow	16
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	underflow	36
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	100
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(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))`	underflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	26
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	102
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	31
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	underflow	30
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	(+.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)))	underflow	30
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	9
`/.f64`	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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/n	14	0
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	90
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	37
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	87
`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-rescue	12	0
↳	(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)))))))	overflow	74
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	74
↳	(+.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)))	overflow	185
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	overflow	15
↳	(.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))))))	overflow	86
↳	`(*.f64 b a)`	overflow	66
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(*.f64 b (neg.f64 a))`	overflow	66
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	overflow	180
↳	`(.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))))`	overflow	103
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	192
↳	(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))	overflow	185
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	176
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	overflow	81
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	176
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	118
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	124
↳	(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))))	overflow	145
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	overflow	82
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	78
↳	`(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))`	overflow	119
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	180
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	132
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(.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))))`	overflow	91
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	174
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
↳	`(/.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)))`	overflow	91
`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-rescue	12	0
↳	(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)))))))	underflow	117
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	underflow	136
↳	(.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))))))	underflow	129
↳	`(*.f64 b a)`	underflow	78
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	28
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(*.f64 b (neg.f64 a))`	underflow	78
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	underflow	92
↳	`(.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))))`	underflow	106
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	underflow	96
↳	(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))	underflow	30
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	underflow	70
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	underflow	33
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	56
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	82
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	126
↳	(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))))	underflow	16
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	underflow	36
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(*.f64 x-scale y-scale)`	underflow	27
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	200
↳	`(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))`	underflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	52
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	158
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(.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))))`	underflow	87
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	204
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	62
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	underflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	`(/.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)))`	underflow	87
↳	(+.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)))	underflow	30
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
`/.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/o	10	0
↳	`(*.f64 b a)`	overflow	33
↳	`(*.f64 b (neg.f64 a))`	overflow	33
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	66
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(/.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)))`	overflow	91
`/.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/n	9	0
↳	(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)))))))	underflow	117
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	underflow	136
↳	(.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))))))	underflow	129
↳	`(*.f64 b a)`	underflow	78
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	28
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(*.f64 b (neg.f64 a))`	underflow	78
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	underflow	92
↳	`(.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))))`	underflow	106
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	underflow	96
↳	(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))	underflow	30
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	underflow	70
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	underflow	33
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	56
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	underflow	16
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	128
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	82
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	126
↳	(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))))	underflow	16
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	underflow	36
↳	(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))))))))	underflow	117
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(*.f64 x-scale y-scale)`	underflow	27
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	200
↳	`(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))`	underflow	62
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	52
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	158
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(.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))))`	underflow	87
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	204
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	62
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	underflow	60
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	`(/.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)))`	underflow	87
↳	(+.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)))	underflow	30
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	15
`/.f64`	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n	9	0
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	41
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	63
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	26
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	102
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`/.f64`	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(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/n	8	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)))`	underflow	28
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	64
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	100
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	31
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`*.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))))`	*nu**	7	0
`/.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/n	7	0
↳	`(*.f64 b a)`	underflow	39
↳	`(*.f64 b (neg.f64 a))`	underflow	39
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	79
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
`/.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/n	6	0
↳	(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)))))))	overflow	74
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	74
↳	(+.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)))	overflow	185
↳	(-.f64 (+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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)))))	overflow	15
↳	(.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))))))	overflow	86
↳	`(*.f64 b a)`	overflow	66
↳	`(.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	(-.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(*.f64 b (neg.f64 a))`	overflow	66
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale)`	overflow	180
↳	`(.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))))`	overflow	103
↳	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale)`	overflow	192
↳	(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))	overflow	185
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	overflow	176
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	overflow	81
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	176
↳	(+.f64 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale) y-scale))	overflow	145
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	118
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	124
↳	(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))))	overflow	145
↳	`(/.f64 (/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale) y-scale)`	overflow	82
↳	(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))))))))	overflow	74
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	overflow	79
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	overflow	78
↳	`(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))`	overflow	119
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	overflow	180
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	132
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(.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))))`	overflow	91
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	overflow	174
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
↳	`(/.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)))`	overflow	91
`*.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))))`	*ou**	6	0
↳	`(*.f64 b a)`	overflow	33
↳	`(*.f64 b (neg.f64 a))`	overflow	33
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(*.f64 x-scale y-scale)`	overflow	25
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	66
↳	`(/.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)))`	overflow	91
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
↳	`(.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))))`	overflow	91
↳	`(*.f64 b a)`	underflow	39
↳	`(*.f64 b (neg.f64 a))`	underflow	39
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	79
`*.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))))))	*no**	5	0
`/.f64`	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	u/n	5	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))))`	underflow	28
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`*.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))))`	*no**	5	0
`/.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/u	5	0
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(*.f64 x-scale y-scale)`	underflow	27
`*.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))))))	*nu**	4	0
`/.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/n	4	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))))`	underflow	28
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	underflow	16
↳	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	27
↳	`(pow.f64 b #s(literal 2 binary64))`	underflow	63
↳	`(pow.f64 a #s(literal 2 binary64))`	underflow	64
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	underflow	15
↳	`(/.f64 (.f64 (.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) (cos.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) x-scale)`	underflow	33
`/.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/o	3	0
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	overflow	64
↳	`(*.f64 x-scale y-scale)`	overflow	25
`/.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/n	2	0
↳	`(*.f64 b a)`	overflow	33
↳	`(*.f64 b (neg.f64 a))`	overflow	33
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	66
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	overflow	66
`/.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/u	2	0
↳	`(*.f64 b a)`	underflow	39
↳	`(*.f64 b (neg.f64 a))`	underflow	39
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(*.f64 x-scale y-scale)`	underflow	27
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	79
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(/.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)))`	underflow	87
`/.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/n	2	0
↳	`(pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	64
↳	`(pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	100
↳	`(.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	31
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) y-scale)`	underflow	35
↳	`(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	28
`/.f64`	`(/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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/n	2	0
↳	`(.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	underflow	41
↳	`(pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	63
↳	`(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)))`	underflow	26
↳	`(pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))`	underflow	102
↳	`(/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale)`	underflow	30
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`*.f64`	`(.f64 (.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))) (sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))))`	*ou**	2	0
↳	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	overflow	106
↳	`(-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64)))`	overflow	106
↳	`(pow.f64 b #s(literal 2 binary64))`	overflow	62
↳	`(pow.f64 a #s(literal 2 binary64))`	overflow	59
↳	`(sin.f64 (*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))`	underflow	3
`*.f64`	`(*.f64 #s(literal 2 binary64) (-.f64 (pow.f64 b #s(literal 2 binary64)) (pow.f64 a #s(literal 2 binary64))))`	*nu**	1	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))))`	*uo**	1	0
↳	`(*.f64 b a)`	underflow	39
↳	`(*.f64 b (neg.f64 a))`	underflow	39
↳	`(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))`	underflow	71
↳	`(*.f64 x-scale y-scale)`	underflow	27
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	underflow	79
↳	`(/.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)))`	underflow	87
↳	`(.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))`	underflow	79
↳	`(.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))))`	underflow	87
↳	`(*.f64 b a)`	overflow	33
↳	`(*.f64 b (neg.f64 a))`	overflow	33
↳	`(.f64 (.f64 b a) (*.f64 b (neg.f64 a)))`	overflow	66

Confusion

	Predicted +	Predicted -
+	256	0
-	0	0

Precision

1.0

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	256	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Freqs

test

number	freq
1	17
2	37
3	58
4	52
5	50
6	24
7	10
8	5
9	2
10	1

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

366.0ms	162×	3	valid
284.0ms	182×	2	valid
154.0ms	162×	1	valid
5.0ms	2×	4	valid
1.0ms	4×	0	valid

Compiler

Compiled 3 413 to 172 computations (95% saved)

Precisions

Click to see histograms. Total time spent on operations: 697.0ms

ival-pow2: 137.0ms (19.6% of total)

ival-sinu: 121.0ms (17.3% of total)

adjust: 118.0ms (16.9% of total)

ival-cosu: 111.0ms (15.9% of total)

ival-mult!: 86.0ms (12.3% of total)

ival-div!: 66.0ms (9.5% of total)

ival-sqrt: 24.0ms (3.4% of total)

ival-add!: 17.0ms (2.4% of total)

ival-sub!: 10.0ms (1.4% of total)

ival-neg: 8.0ms (1.1% of total)

preprocess64.0ms (0.2%)

Memory

-21.9MiB live, 43.2MiB allocated; 25ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	556	3888
1	1519	3764
2	6985	3764

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	0.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))))

Status

Accuracy

Program

▶

0.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))))

Symmetry

(abs a)

(abs b)

(abs x-scale)

(abs y-scale)

Compiler

Compiled 366 to 112 computations (69.4% saved)

series910.0ms (2.3%)

Memory

53.7MiB live, 1 315.1MiB allocated; 191ms collecting garbage

Counts

56 → 536

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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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) (- (+ (/ (* (pow b 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -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)))))) (* 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)))))))))))))
#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 (- (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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 a 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -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)))))) (* 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)))))))))))))
#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 (- (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* (pow angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 6) (pow b 4)) (* (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 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 6) (pow b 4)) (* (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 (+ (* 16 (/ (* (pow a 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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))) (+ (/ (* (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/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 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 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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) (- (+ (/ (* (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 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -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 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))) (+ (/ (* (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/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 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 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 y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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))))))))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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/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/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))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* 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))))) (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 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) (pow (cos (* 1/180 (* 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))))) (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 (cos (* 1/180 (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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))) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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 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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (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 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (/ (* (pow a 2) (pow (cos (* 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)))))) (* 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))))))) (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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* -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 2) (+ (* 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 (cos (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 2))))
#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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (/ (- (* 1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #s(hole binary64 (/ (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (cos (* 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 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 6) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (pow 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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)))))) (* 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))))))) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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 2) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (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 (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow x-scale 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 (/ (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 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 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))) 3)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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/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 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))) 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 a 2) (pow (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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (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))))))

Calls

15 calls:

Time	Variable		Point	Expression
81.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))
66.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))
65.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))
63.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))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))
62.0ms	x-scale	@	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))

rewrite1.8s (4.6%)

Memory

-319.7MiB live, 1 158.1MiB allocated; 1.6s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3462	264996
0	3566	240704
0	10405	236312

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

592 → 643

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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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) (- (+ (/ (* (pow b 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -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)))))) (* 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)))))))))))))
#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 (- (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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 a 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -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)))))) (* 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)))))))))))))
#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 (- (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* (pow angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 6) (pow b 4)) (* (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 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 6) (pow b 4)) (* (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 (+ (* 16 (/ (* (pow a 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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))) (+ (/ (* (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/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 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 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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) (- (+ (/ (* (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 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -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 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))) (+ (/ (* (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/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 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 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 y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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))))))))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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/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/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))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* 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))))) (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 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) (pow (cos (* 1/180 (* 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))))) (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 (cos (* 1/180 (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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))) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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 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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (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 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (/ (* (pow a 2) (pow (cos (* 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)))))) (* 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))))))) (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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* -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 2) (+ (* 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 (cos (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 2))))
#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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (/ (- (* 1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #s(hole binary64 (/ (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (cos (* 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 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 6) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (pow 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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)))))) (* 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))))))) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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 2) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (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 (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow x-scale 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 (/ (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 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 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))) 3)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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/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 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))) 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 a 2) (pow (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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (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))))))

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)))) (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)) (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)))) (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)) (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)))) (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)) (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)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.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)))) (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)) (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)))) (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)) (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)))) (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)) (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)))) (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 (neg.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))) (neg.f64 (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))))
#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 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (*.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))))))
#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)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (.f64 #s(literal -4 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) (.f64 #s(literal -4 binary64) (pow.f64 (.f64 a b) #s(literal 2 binary64))))
#s(approx (* (* b a) (* b (neg a))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 a b) #s(literal 2 binary64))))
#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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 a a) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 a a) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 (.f64 a a) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 a a) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (.f64 a a) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (.f64 a (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) y-scale)) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) y-scale)))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) x-scale) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))) x-scale))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 #s(literal 2 binary64) (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) (.f64 #s(literal 2 binary64) (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 2 binary64) (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 #s(literal 2 binary64) (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (.f64 #s(literal 2 binary64) (.f64 b b)))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (fma.f64 #s(literal -2 binary64) (.f64 a a) (.f64 #s(literal 2 binary64) (*.f64 b b))))
#s(approx (- (pow b 2) (pow a 2)) (*.f64 b b))
#s(approx (- (pow b 2) (pow a 2)) (fma.f64 #s(literal -1 binary64) (.f64 a a) (.f64 b b)))
#s(approx (pow a 2) (*.f64 a a))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 a (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 a a)) (/.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 8 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 a a)) (/.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 8 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 a a)) (/.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.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)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 a a)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 a a)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 a a)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 a a)) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 a a)) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 a a)) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (.f64 (.f64 a a) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (.f64 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 a #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) y-scale)) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) y-scale)))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) x-scale) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) x-scale))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) (.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 a a))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (.f64 #s(literal -2 binary64) (.f64 a a)))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (.f64 (.f64 a a) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))
#s(approx (- (pow b 2) (pow a 2)) (.f64 #s(literal -1 binary64) (.f64 a a)))
#s(approx (- (pow b 2) (pow a 2)) (.f64 (.f64 a a) (-.f64 (/.f64 (.f64 b b) (.f64 a a)) #s(literal 1 binary64))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (pow.f64 a #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 a a)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 b b) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (*.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))))))
#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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 (.f64 b b) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 b b) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 b b) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 (.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 (.f64 b b) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 b b) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (.f64 b b) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (.f64 b (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (- (pow b 2) (pow a 2)) (-.f64 (.f64 b b) (.f64 a a)))
#s(approx (pow b 2) (*.f64 b b))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 b b)) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (*.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 8 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 b b)) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 8 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 b b)) (/.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 b b) x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 b b)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 b b) y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 b b)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 b b)) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 b b)) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 b b)) (+.f64 (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (.f64 (.f64 b b) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -8 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 b #s(literal 4 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) y-scale))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) x-scale) (/.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) y-scale))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) x-scale)) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) x-scale)))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) (.f64 b b)) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 b b)) (.f64 #s(literal 2 binary64) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))))))
#s(approx (* 2 (- (pow b 2) (pow a 2))) (.f64 (.f64 b b) (+.f64 #s(literal 2 binary64) (.f64 #s(literal -2 binary64) (/.f64 (.f64 a a) (*.f64 b b))))))
#s(approx (- (pow b 2) (pow a 2)) (.f64 (.f64 b b) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (.f64 a a) (*.f64 b b))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 4 binary64))) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 b b)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (sqrt.f64 #s(literal 8 binary64)) y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal 1/4 binary64) (.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))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.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))) (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 a) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (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 a (.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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)))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (.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)))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 a x-scale) (/.f64 (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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 #s(literal 16 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 6 binary64)) (*.f64 x-scale x-scale)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (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))))) (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)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 16 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (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))))) (fma.f64 #s(literal 16 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))) (.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)) (-.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)) (+.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/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (pow.f64 (.f64 x-scale y-scale) #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)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (*.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))) (.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)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.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)) (-.f64 (+.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 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (pow.f64 (.f64 x-scale y-scale) #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)) (-.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)) (+.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/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (*.f64 x-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 #s(literal 2 binary64) (/.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 a a) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 (.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 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.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 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))))))) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (*.f64 b b) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (fma.f64 (.f64 angle angle) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) x-scale) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale)))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 b b)))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 a (.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* (/ 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) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))) (.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 b b)))
#s(approx (* b (cos (* (/ angle 180) (PI)))) b)
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (.f64 #s(literal -1/64800 binary64) (.f64 (.f64 angle angle) (.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 b (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 b (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(literal 1 binary64))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/64800 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (fma.f64 (.f64 angle angle) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (*.f64 a a) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (fma.f64 (.f64 angle angle) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) y-scale) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale)))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 a a))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (*.f64 a a))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))) (.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 a a)))
#s(approx (* a (cos (* (/ angle 180) (PI)))) a)
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (.f64 #s(literal -1/64800 binary64) (.f64 a (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 a (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/25194240000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 a (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 #s(literal 1/25194240000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 angle angle) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (*.f64 b (PI.f64)))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64)))) (.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 7 binary64)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64))))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 #s(literal 1/90 binary64) (.f64 (/.f64 angle x-scale) (/.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (*.f64 a a))) y-scale))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (.f64 b b) (.f64 a a)) y-scale)) (.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (.f64 #s(literal -1/34992000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (.f64 b b) (.f64 a a)) y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (.f64 #s(literal 1/2267481600000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)))))) (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (.f64 #s(literal -1/34992000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (*.f64 x-scale y-scale))))))))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (/.f64 (PI.f64) x-scale) (/.f64 (-.f64 (.f64 b b) (.f64 a a)) y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (.f64 #s(literal -1/34992000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale))))))) (.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)) (.f64 #s(literal 1/2267481600000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 x-scale y-scale)))))))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 #s(literal 1/90 binary64) (/.f64 (.f64 angle (.f64 (PI.f64) (-.f64 (.f64 b b) (*.f64 a a)))) x-scale)))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal -1/34992000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal 1/2267481600000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale))))) (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal -1/34992000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale)))))))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (/.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal -1/34992000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (fma.f64 #s(literal -1/1469328076800000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (fma.f64 #s(literal -1/4407984230400000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal -1/30855889612800000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale)))))) (.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (fma.f64 #s(literal 1/4534963200000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) x-scale) (.f64 #s(literal 1/2267481600000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (*.f64 a a))) x-scale))))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 #s(literal 1/90 binary64) (.f64 angle (.f64 (PI.f64) (-.f64 (.f64 b b) (*.f64 a a))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal -1/34992000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal 1/2267481600000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))))))) (.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal -1/34992000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a)))))))))))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (fma.f64 #s(literal -1/11664000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal -1/34992000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (fma.f64 #s(literal -1/1469328076800000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (fma.f64 #s(literal -1/4407984230400000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a)))))))) (.f64 #s(literal 2 binary64) (fma.f64 #s(literal 1/22674816000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (fma.f64 #s(literal 1/4534963200000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal 1/2267481600000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (*.f64 a a))))))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 1/90 binary64) (.f64 angle (.f64 (PI.f64) (-.f64 (.f64 b b) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal -1/17496000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a)))) (.f64 #s(literal 1/90 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a)))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/17496000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal 1/11337408000000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (*.f64 a a))))))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/90 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/17496000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/15427944806400000000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a)))) (.f64 #s(literal 1/11337408000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (*.f64 x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))
#s(approx (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) (.f64 x-scale y-scale))))
#s(approx (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) (.f64 #s(literal 2 binary64) (/.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a)))) x-scale)))
#s(approx (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))))))
#s(approx (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (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/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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 (.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/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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #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 (/.f64 (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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 b b) (.f64 (.f64 x-scale x-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))) y-scale) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) x-scale))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #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 (/.f64 (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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))) y-scale) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (.f64 #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/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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) y-scale) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) 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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 b b) (.f64 (.f64 x-scale x-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) y-scale) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) 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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (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/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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))) y-scale) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) 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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) y-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 (.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/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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) y-scale) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #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 (/.f64 (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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))) y-scale) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))))) 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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 y-scale y-scale)) (/.f64 (.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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 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 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 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 y-scale y-scale)) (/.f64 (.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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 y-scale y-scale)) (/.f64 (.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)))))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 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 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 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 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 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 y-scale y-scale)) (/.f64 (.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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 2 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 y-scale y-scale)) (/.f64 (.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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #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 (* x-scale y-scale) 2) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
#s(approx (* x-scale y-scale) (*.f64 x-scale y-scale))
#s(approx 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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #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 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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))) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (.f64 x-scale x-scale) y-scale)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 y-scale (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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))))))) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 y-scale (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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))))))) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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))) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 y-scale (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 y-scale (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 y-scale (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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))) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 y-scale (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 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 x-scale x-scale)) (/.f64 (.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 (.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.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)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 -4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 (.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.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 (.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))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 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 -4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 (.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (/.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.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 (.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)) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.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)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (.f64 (.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 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 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (.f64 (.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))) (.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (.f64 (.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))))))) (.f64 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)))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (.f64 (.f64 x-scale x-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 x-scale x-scale)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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/8 binary64) (.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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/8 binary64) (.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (-.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))) 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)) (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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))) x-scale) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))) 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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (-.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))) x-scale) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #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/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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))) x-scale) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))) 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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))) 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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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/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/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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))) x-scale) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))) 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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))) x-scale) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (-.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))) x-scale) (/.f64 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))))) 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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 x-scale x-scale)) (/.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 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)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 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 x-scale x-scale)) (/.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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)))))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 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 x-scale x-scale)) (/.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 2 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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 4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))) (*.f64 y-scale y-scale)))
#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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 3 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (*.f64 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))) (.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (*.f64 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (.f64 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) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (-.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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))) (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (/.f64 (.f64 a a) x-scale) (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))) (*.f64 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 x-scale x-scale)) (/.f64 (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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)))))) (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 -4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 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 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 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 -4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 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 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 (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 3 binary64))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 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 -4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 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 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.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 (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 3 binary64))))) (fma.f64 #s(literal 4 binary64) (.f64 (/.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.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)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))) (*.f64 x-scale x-scale)))))) (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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (*.f64 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 (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 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 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 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 y-scale y-scale) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))))) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64))))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)) #s(literal 2 binary64)))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 y-scale y-scale)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64))))
#s(approx (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 y-scale y-scale)) (+.f64 (/.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)))))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))

eval282.0ms (0.7%)

Memory: 7.1MiB live, 624.5MiB allocated; 101ms collecting garbage
Compiler: Compiled 347 584 to 8 716 computations (97.5% saved)

prune95.0ms (0.2%)

Memory

-10.6MiB live, 226.4MiB allocated; 15ms collecting garbage

Pruning

23 alts after pruning (23 fresh and 0 done)

	Pruned	Kept	Total
New	818	23	841
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	819	23	842

Accuracy

36.5%

Counts

842 → 23

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	0.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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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))))
	0.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))))
	0.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)))) #s(approx (- (+ (/ (/ (+ (pow ( a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #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.0%	(/.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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 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 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))))
	0.5%	(/.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 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 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 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))) (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))))
▶	2.5%	(/.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
	1.1%	(/.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 x-scale y-scale)) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #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.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))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 a (*.f64 x-scale #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))) (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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
	0.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 y-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))
	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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))))))
▶	6.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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
	5.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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	6.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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	1.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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))))
	3.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	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) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
▶	34.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 a (*.f64 x-scale #s(literal 4 binary64)))))
▶	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))

Compiler

Compiled 14 722 to 4 380 computations (70.2% saved)

series1.3s (3.3%)

Memory

29.0MiB live, 2 439.5MiB allocated; 247ms collecting garbage

Counts

118 → 962

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 a (*.f64 x-scale #s(literal 4 binary64)))))
(.f64 #s(literal 1/4 binary64) (.f64 a (*.f64 x-scale #s(literal 4 binary64))))
#s(literal 1/4 binary64)
(.f64 a (.f64 x-scale #s(literal 4 binary64)))
a
(*.f64 x-scale #s(literal 4 binary64))
x-scale
#s(literal 4 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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
(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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.f64 y-scale y-scale))))
(/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.f64 y-scale y-scale)))
(.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (*.f64 b b) #s(literal 4 binary64)))
(pow.f64 a #s(literal 3 binary64))
#s(literal 3 binary64)
(.f64 (.f64 b b) #s(literal 4 binary64))
(*.f64 b b)
b
(.f64 x-scale (.f64 y-scale y-scale))
(*.f64 y-scale 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 #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(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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 x-scale x-scale)
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))))
(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)))))))
(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 (.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 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 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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))
(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 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)))))
(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)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))
(sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))
#s(literal 1/2 binary64)
(/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(literal -2 binary64)
(.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)))))
(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 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)))
(pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))) #s(literal 2 binary64))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a)))
(-.f64 (.f64 b b) (.f64 a a))
(*.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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* a (* x-scale 4))) #s(hole binary64 (* a x-scale)))
#s(approx (* a (* x-scale 4)) #s(hole binary64 (* 4 (* a x-scale))))
#s(approx a #s(hole binary64 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))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))))
#s(approx (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) #s(hole binary64 (* 4 (/ (* (pow a 3) (pow b 2)) (* x-scale (pow y-scale 2))))))
#s(approx (* (pow a 3) (* (* b b) 4)) #s(hole binary64 (* 4 (* (pow a 3) (pow b 2)))))
#s(approx (pow a 3) #s(hole binary64 (pow a 3)))
#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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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) (- (+ (/ (* (pow b 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -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)))))) (* 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)))))))))))))
#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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 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)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 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/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (+ (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (+ (* -1 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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))) (* -2 (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow a 2) (+ (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))))) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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 a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* -2 (/ (* (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 b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow a 2) (+ (* -2 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* (pow a 2) (+ (* -2 (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* (pow a 2) (+ (* -2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (- (* 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 (* a a) #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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow a 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow a 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (+ (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow a 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 4) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 4) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (+ (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (+ (* 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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (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 b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow a 2))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow a 2))) (+ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow a 4)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (+ (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 4)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (sin (* 1/180 (* angle (PI))))) (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2))))))
#s(approx (- (* 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))))
#s(approx (* (* b b) 4) #s(hole binary64 (* 4 (pow b 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* b (* x-scale (* y-scale (sqrt 8))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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 a 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -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)))))) (* 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)))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* 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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (+ (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (+ (* -1 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* -2 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* (pow b 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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 b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* -2 (/ (* (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 a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (+ (* -2 (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (+ (* -2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (* (pow b 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow b 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow b 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (* (pow b 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (+ (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow b 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow b 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow b 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (+ (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (+ (* 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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (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 a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 2))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 2))) (+ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (+ (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 4)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (sin (* 1/180 (* angle (PI)))) (* -1 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2)))))))
#s(approx (- (* 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* (pow angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (pow y-scale 2))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (pow b 4)) (* (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 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 6) (pow b 4)) (* (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 (+ (* 16 (/ (* (pow a 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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))) (+ (/ (* (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/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 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 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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) (- (+ (/ (* (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 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -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 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))) (+ (/ (* (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/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 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 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 y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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))))))))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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/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/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))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 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 (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* 1/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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* -1 (/ (pow b 2) (pow x-scale 2))) (* 1/2 (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* -1 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* -1 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2)))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2)))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (+ (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2)))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))) (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))))) (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2)))))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))))) (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 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 (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (+ (* 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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (+ (* -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))) (+ (* 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))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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 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))) (+ (* -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))) (+ (* 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))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/1049760000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/1049760000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* 1/102036672000000 (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* 1/32400 (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2)))) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))))))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/1049760000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* 1/102036672000000 (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* 1/32400 (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2)))) (+ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (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)))) (+ (* -1/3149280000 (* (pow (PI) 4) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)))) (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)))))))))))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)))) (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow angle 2) (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* 1/180 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/180 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* 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))))) (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 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) (pow (cos (* 1/180 (* 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))))) (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 (cos (* 1/180 (* 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow 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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))))
#s(approx (* x-scale 4) #s(hole binary64 (* 4 x-scale)))
#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))) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) x-scale)))
#s(approx (* x-scale (* y-scale y-scale)) #s(hole binary64 (* x-scale (pow y-scale 2))))
#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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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 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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (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 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (/ (* (pow a 2) (pow (cos (* 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)))))) (* 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))))))) (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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* -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 2) (+ (* 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 (cos (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (/ (- (* 1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #s(hole binary64 (/ (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (cos (* 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 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 6) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (pow 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))) y-scale)))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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)))))) (* 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))))))) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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 2) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow x-scale 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 (/ (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 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 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))) 3)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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/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 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))) 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 a 2) (pow (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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))

Calls

15 calls:

Time	Variable		Point	Expression
135.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 (* a (* x-scale 4))) 1/4 (* a (* x-scale 4)) a (* x-scale 4) x-scale 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))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))))) (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) (* (pow a 3) (* (* b b) 4)) (pow a 3) 3 (* (* b b) 4) (* b b) b (* x-scale (* y-scale y-scale)) (* y-scale y-scale) y-scale (/ (* 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) 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) (sqrt 8) 8 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* x-scale x-scale) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)) (* a a))
120.0ms	x-scale	@	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 (* a (* x-scale 4))) 1/4 (* a (* x-scale 4)) a (* x-scale 4) x-scale 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))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))))) (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) (* (pow a 3) (* (* b b) 4)) (pow a 3) 3 (* (* b b) 4) (* b b) b (* x-scale (* y-scale y-scale)) (* y-scale y-scale) y-scale (/ (* 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) 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) (sqrt 8) 8 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* x-scale x-scale) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)) (* a a))
96.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 (* a (* x-scale 4))) 1/4 (* a (* x-scale 4)) a (* x-scale 4) x-scale 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))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))))) (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) (* (pow a 3) (* (* b b) 4)) (pow a 3) 3 (* (* b b) 4) (* b b) b (* x-scale (* y-scale y-scale)) (* y-scale y-scale) y-scale (/ (* 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) 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) (sqrt 8) 8 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* x-scale x-scale) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)) (* a a))
87.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 (* a (* x-scale 4))) 1/4 (* a (* x-scale 4)) a (* x-scale 4) x-scale 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))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))))) (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) (* (pow a 3) (* (* b b) 4)) (pow a 3) 3 (* (* b b) 4) (* b b) b (* x-scale (* y-scale y-scale)) (* y-scale y-scale) y-scale (/ (* 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) 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) (sqrt 8) 8 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* x-scale x-scale) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)) (* a a))
64.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 (* a (* x-scale 4))) 1/4 (* a (* x-scale 4)) a (* x-scale 4) x-scale 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))) (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)))))) (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) (* (pow a 3) (* (* b b) 4)) (pow a 3) 3 (* (* b b) 4) (* b b) b (* x-scale (* y-scale y-scale)) (* y-scale y-scale) y-scale (/ (* 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) 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) (sqrt 8) 8 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (* x-scale x-scale) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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))) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (* a (sin (* 1/180 (* angle (PI))))) (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (* 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (* a (cos (* 1/180 (* angle (PI))))) (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (* b (sin (* 1/180 (* angle (PI))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (- (* b b) (* a a)) (* a a))

rewrite1.3s (3.4%)

Memory

80.6MiB live, 2 062.4MiB allocated; 497ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	5985	457269
0	6206	426547
0	8376	418587

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

1 080 → 1 177

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 a (*.f64 x-scale #s(literal 4 binary64)))))
(.f64 #s(literal 1/4 binary64) (.f64 a (*.f64 x-scale #s(literal 4 binary64))))
#s(literal 1/4 binary64)
(.f64 a (.f64 x-scale #s(literal 4 binary64)))
a
(*.f64 x-scale #s(literal 4 binary64))
x-scale
#s(literal 4 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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
(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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.f64 y-scale y-scale))))
(/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.f64 y-scale y-scale)))
(.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (*.f64 b b) #s(literal 4 binary64)))
(pow.f64 a #s(literal 3 binary64))
#s(literal 3 binary64)
(.f64 (.f64 b b) #s(literal 4 binary64))
(*.f64 b b)
b
(.f64 x-scale (.f64 y-scale y-scale))
(*.f64 y-scale 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 #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(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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 x-scale x-scale)
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))))
(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)))))))
(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 (.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 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 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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))
(+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 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)))))
(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)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))
(sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))
#s(literal 1/2 binary64)
(/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(literal -2 binary64)
(.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
(+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)))))
(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 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)))
(pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))) #s(literal 2 binary64))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a)))
(-.f64 (.f64 b b) (.f64 a a))
(*.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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* a (* x-scale 4))) #s(hole binary64 (* a x-scale)))
#s(approx (* a (* x-scale 4)) #s(hole binary64 (* 4 (* a x-scale))))
#s(approx a #s(hole binary64 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))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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))))))))))))))))
#s(approx (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) #s(hole binary64 (* 4 (/ (* (pow a 3) (pow b 2)) (* x-scale (pow y-scale 2))))))
#s(approx (* (pow a 3) (* (* b b) 4)) #s(hole binary64 (* 4 (* (pow a 3) (pow b 2)))))
#s(approx (pow a 3) #s(hole binary64 (pow a 3)))
#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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (* (pow b 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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) (- (+ (/ (* (pow b 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow a 2) (+ (* -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)))))) (* 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)))))))))))))
#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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (* (pow a 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/4 (* (* (pow a 2) (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow b 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 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)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 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/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (+ (* 1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (+ (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (+ (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow a 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (+ (* -1 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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))) (* -2 (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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))) (+ (* -2 (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow a 2) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow a 2) (+ (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))))) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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 a 2) (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* -2 (/ (* (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 b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow a 2) (+ (* -2 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* (pow a 2) (+ (* -2 (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* (pow a 2) (+ (* -2 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (+ (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI)))))) (* (pow b 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (- (* 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 (* a a) #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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow b 4) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow b 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (/ (* (pow b 2) (pow (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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow a 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow a 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow b 2) (pow (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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow a 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow a 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow a 2) (+ (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (* (pow a 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow a 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow a 4) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (+ (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow a 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 4) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow a 4) (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (+ (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow a 2) (pow x-scale 2))) (+ (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (+ (* 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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (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 b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow a 4) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow a 2))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow a 2))) (+ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow a 4)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow a 4) (+ (* -2 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 2))) (+ (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow a 4)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* -1 (* (pow a 2) (sin (* 1/180 (* angle (PI))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow a 2) (+ (* -1 (sin (* 1/180 (* angle (PI))))) (/ (* (pow b 2) (sin (* 1/180 (* angle (PI))))) (pow a 2))))))
#s(approx (- (* 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow a 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow a 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 b 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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))))))))) (* x-scale y-scale)) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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))))))))))))))))
#s(approx (* (* b b) 4) #s(hole binary64 (* 4 (pow b 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* b (* x-scale (* y-scale (sqrt 8))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 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 a 2) (pow (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 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow 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 a 2) (pow (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 x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow b 2) (+ (* -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)))))) (* 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)))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (* (pow b 2) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/4 (* (* (pow b 2) (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) 3))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (- (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (+ (/ (* (pow a 2) (pow (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))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* 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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (+ (* 1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (+ (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (+ (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* (pow b 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (+ (* -1 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* -2 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (+ (* -2 (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (* (pow b 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)))) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow b 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* b (sin (* 1/180 (* angle (PI)))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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))) (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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 b 2) (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* -2 (/ (* (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 a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow b 2) (+ (* -2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (+ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (+ (* -2 (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* -2 (* (pow a 2) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (+ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (+ (* -2 (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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)))))) (+ (* 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))))) (+ (* 8 (/ (* (pow a 4) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 8 (/ (* (pow a 4) (- (+ (/ (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 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) (- (+ (/ (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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (* (/ (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))) (pow b 4)) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/4 (* (/ (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (- (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)) (* 1/4 (/ (pow (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) 2) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))) (pow b 6)) (sqrt (/ 1 (pow (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)) 3))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow y-scale 2))) (+ (/ (* (pow 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)))))) (+ (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* 1/2 (/ (* (pow b 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow b 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow b 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* (pow b 2) (+ (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (/ (* (pow b 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))) (+ (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* (pow b 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow x-scale 2)))) (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (+ (* -1 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 4) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))))) (+ (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow b 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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)))) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (pow x-scale 2)))) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow b 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow b 4) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (* (pow b 2) (pow x-scale 2))) (+ (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))) (+ (* 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)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (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 (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (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 a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow b 4) (pow x-scale 2))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 2))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 2))) (+ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow b 4) (+ (* -2 (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 2))) (+ (/ (* (pow a 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow b 4)) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (pow b 2) (+ (sin (* 1/180 (* angle (PI)))) (* -1 (/ (* (pow a 2) (sin (* 1/180 (* angle (PI))))) (pow b 2)))))))
#s(approx (- (* 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (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))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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)))))))) (* (pow b 6) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/2 (* (/ (* (pow a 2) (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))))) (* (pow b 4) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/2 (* (/ (* (pow a 2) (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2) (* x-scale y-scale))) (sqrt (/ 1 (- (+ (/ (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 a 2) (sqrt 8)) (* x-scale y-scale)) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (- (* (pow angle 2) (- (* -1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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)))))))))) (* x-scale (sqrt 2)))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (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 angle 2) (+ (* 1/2 (/ (* a (* (pow b 2) (* (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))))))))) (* x-scale (sqrt 2)))) (* (pow angle 2) (+ (* 1/2 (/ (* a (* (pow angle 2) (* (pow b 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* x-scale (sqrt 2)))) (* 1/2 (/ (* a (* (pow b 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* x-scale (sqrt 2)))))))) (/ (* (pow a 3) (* (pow b 2) (* (sqrt 2) (sqrt 8)))) (* x-scale (pow y-scale 2))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 6) (pow b 4)) (* (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 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 6) (pow b 4)) (* (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 (+ (* 16 (/ (* (pow a 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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))) (+ (/ (* (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/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 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 6) (pow b 4)) (* (pow x-scale 2) (pow y-scale 4)))) (* (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) (- (+ (/ (* (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 (/ (- (+ (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -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 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))) (+ (/ (* (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/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 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 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 y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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))))))))))) (* 1/2 (/ (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (* 1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow y-scale 2))))) (- (/ (pow b 2) (pow 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 a 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow y-scale 2))) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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))))) (* 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/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/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))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (pow b 2)))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 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 (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* 1/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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (* -1 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* -1 (/ (pow b 2) (pow x-scale 2))) (* 1/2 (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* -1 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) #s(hole binary64 (+ (* -1 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (* -2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2)))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) #s(hole binary64 (+ (* -2 (/ (pow b 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2)))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (+ (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2))) (* (pow angle 2) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2)))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (pow a 2) (pow b 2)) (pow x-scale 2))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2)))) (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2))))) (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))))) (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2)))))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))))) (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))))) (/ (* (pow a 2) (pow b 2)) (pow x-scale 2)))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) #s(hole binary64 (pow a 2)))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 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 (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (+ (* 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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))) (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (+ (* -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))) (+ (* 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))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))) (* 4 (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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 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))) (+ (* -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))) (+ (* 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))) (/ (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))))))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/1049760000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/1049760000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* 1/102036672000000 (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* 1/32400 (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2)))) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2))))))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/1049760000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* 1/102036672000000 (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2))) (+ (* 1/32400 (* (pow (PI) 2) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2)))) (+ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (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)))) (+ (* -1/3149280000 (* (pow (PI) 4) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (pow (- (pow b 2) (pow a 2)) 2)))) (+ (* 1/32400 (* (pow (PI) 2) (* (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)))) (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)))))))))))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)))) (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* -1/3149280000 (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2))) (* (pow angle 2) (+ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow angle 2) (* (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))) (pow (- (pow b 2) (pow a 2)) 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* 1/180 (* angle (* (PI) (- (pow b 2) (pow a 2)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (* (pow (PI) 3) (- (pow b 2) (pow a 2))))) (* 1/180 (* (PI) (- (pow b 2) (pow a 2))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* 1/22674816000000 (* (pow angle 2) (* (pow (PI) 5) (- (pow b 2) (pow a 2)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* angle (+ (* 1/180 (* (PI) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/34992000 (* (pow (PI) 3) (- (pow b 2) (pow a 2)))) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (* (pow (PI) 7) (- (pow b 2) (pow a 2))))) (* 1/22674816000000 (* (pow (PI) 5) (- (pow b 2) (pow a 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* 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))))) (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 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) (pow (cos (* 1/180 (* 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))))) (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 (cos (* 1/180 (* 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) #s(hole binary64 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* (pow 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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) #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)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) #s(hole binary64 (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) #s(hole binary64 (* (sin (* 1/180 (* angle (PI)))) (- (pow b 2) (pow a 2)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))))
#s(approx (* x-scale 4) #s(hole binary64 (* 4 x-scale)))
#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))) (* x-scale y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) 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))) y-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) x-scale)))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))))))) (* y-scale (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow x-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))) y-scale) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))) x-scale)))
#s(approx (* x-scale (* y-scale y-scale)) #s(hole binary64 (* x-scale (pow y-scale 2))))
#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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (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 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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (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 (/ (+ (* 8 (/ (* (pow a 4) (* (pow b 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (+ (/ (* (pow a 2) (pow (cos (* 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)))))) (* 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))))))) (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) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 2))) (* (pow x-scale 2) (+ (* -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 2) (+ (* 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 (cos (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/4 (/ (* (pow x-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) #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 b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (* -1 (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) (* (pow x-scale 2) y-scale)) (sqrt (- (+ (* (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 (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))))))) #s(hole binary64 (/ (- (* 1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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))))))) #s(hole binary64 (/ (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (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 (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4) y-scale)) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) (* (pow x-scale 2) (* y-scale (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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 (- (+ (* (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 (cos (* 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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 (cos (* 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 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (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 (cos (* 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 (/ (+ (* -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 2) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))) (+ (* 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 4) (* (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) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 6) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (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 (cos (* 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 (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (- (+ (* 1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))) (pow 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 6) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (* (pow x-scale 4) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 3)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 1/2 (/ (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))))) (pow 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 y-scale)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 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 y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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 a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* x-scale (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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 a 2) (* (pow b 2) (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))) y-scale)))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx y-scale #s(hole binary64 y-scale))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* y-scale (sqrt 8)) #s(hole binary64 (* y-scale (sqrt 8))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 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) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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)))))) (* 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))))))) (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 a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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) (+ (* -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 2) (+ (* 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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))))) (* (pow x-scale 2) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (/ (* (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 3))))) (* 1/2 (/ (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (pow y-scale 2))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 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 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 6))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))) (* x-scale (pow y-scale 4))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/4 (* (/ (* (pow a 2) (* (pow b 2) (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2))))))) (* x-scale (* (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)))))) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* (/ (* (pow a 2) (* (pow b 2) (sqrt 8))) x-scale) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))) (pow y-scale 2))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (* (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (* 8 (/ (* (pow a 4) (* (pow b 4) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow 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 (/ (+ (* -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 2) (+ (/ (* (pow a 2) (pow (sin (* 1/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 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 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))) 3))))) (+ (* 4 (/ (* (pow a 4) (* (pow b 4) (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (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) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))) (pow x-scale 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 (/ (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2)))) (* (pow y-scale 2) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 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 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))) 3)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (/ (- (+ (* 1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (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/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 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))) 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 a 2) (pow (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 2) (+ (/ (* (pow a 2) (pow (sin (* 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 (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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) 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 a (*.f64 x-scale #s(literal 4 binary64)))))
(.f64 #s(literal 1/4 binary64) (.f64 a (*.f64 x-scale #s(literal 4 binary64))))
#s(literal 1/4 binary64)
(.f64 a (.f64 x-scale #s(literal 4 binary64)))
a
(*.f64 x-scale #s(literal 4 binary64))
x-scale
#s(literal 4 binary64)
(/.f64 (neg.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (.f64 y-scale y-scale)))))) (neg.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)))))
(/.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
(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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.f64 y-scale y-scale))))
(/.f64 (neg.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64)))) (neg.f64 (.f64 x-scale (*.f64 y-scale y-scale))))
(/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.f64 y-scale y-scale)))
(.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (*.f64 b b) #s(literal 4 binary64)))
(.f64 (.f64 a a) a)
(.f64 a (.f64 a a))
(pow.f64 a #s(literal 3 binary64))
(exp.f64 (*.f64 (log.f64 a) #s(literal 3 binary64)))
#s(literal 3 binary64)
(.f64 (.f64 b b) #s(literal 4 binary64))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
b
(.f64 x-scale (.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)))
y-scale
(/.f64 (neg.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 b a) (.f64 b (neg.f64 a))))) (neg.f64 (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)
(.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(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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
(pow.f64 #s(literal 8 binary64) #s(literal 1/2 binary64))
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(*.f64 (neg.f64 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 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (neg.f64 (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)))))))) (neg.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)))))
(/.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))))
(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 (sqrt.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))))) (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (.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))))) #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)))) (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 (.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 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 (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64))) x-scale) x-scale) (/.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64)))) #s(literal 2 binary64)) (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 (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)
(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)
(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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (.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))))) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(fma.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 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 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(.f64 (.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)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))
(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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))) #s(literal 1/2 binary64))
(sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))
#s(literal 1/2 binary64)
(/.f64 (neg.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (neg.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
(/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))
(+.f64 (.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(literal -2 binary64)
(.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (.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))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(fma.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 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 (.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)))))
(.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
(/.f64 (neg.f64 (pow.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)))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.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)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)))
(pow.f64 (.f64 (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(literal 2 binary64))
(.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))))
(.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))
(pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) #s(literal 2 binary64)))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a)))
(-.f64 (.f64 b b) (.f64 a a))
(*.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)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale))
#s(approx (* a (* x-scale 4)) (.f64 #s(literal 4 binary64) (.f64 a x-scale)))
#s(approx 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))))))) (.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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))))
#s(approx (/ (* (pow a 3) (* (* b b) 4)) (* x-scale (* y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 b b)) (.f64 x-scale (*.f64 y-scale y-scale)))))
#s(approx (* (pow a 3) (* (* b b) 4)) (.f64 #s(literal 4 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (*.f64 b b))))
#s(approx (pow a 3) (pow.f64 a #s(literal 3 binary64)))
#s(approx (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2)) (.f64 #s(literal -4 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (* 4 (* (* b a) (* b (neg a)))) (.f64 #s(literal -4 binary64) (pow.f64 (.f64 a b) #s(literal 2 binary64))))
#s(approx (* (* b a) (* b (neg a))) (.f64 #s(literal -1 binary64) (pow.f64 (.f64 a b) #s(literal 2 binary64))))
#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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (*.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))))))
#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)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (pow.f64 (*.f64 x-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 a a) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (.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))))
#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)) 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)) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#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)) 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)) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 a a) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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)) (.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))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (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 (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 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/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 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 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (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)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.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 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (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)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.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 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (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)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.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 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 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 x-scale x-scale)) (.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 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 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 a a) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 a a) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (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 (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (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 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 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 x-scale x-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 x-scale x-scale)))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (fma.f64 #s(literal -2 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 x-scale x-scale)) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (fma.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (fma.f64 #s(literal -2 binary64) (.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 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (fma.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/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) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 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)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (fma.f64 (.f64 a a) (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)) (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a a) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))))
#s(approx (- (* b b) (* a a)) (*.f64 b b))
#s(approx (- (* b b) (* a a)) (fma.f64 #s(literal -1 binary64) (.f64 a a) (.f64 b b)))
#s(approx (* a a) (*.f64 a a))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 a (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 a a) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 a a) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (.f64 x-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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 a a) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 x-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 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.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)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 a a)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 a a) y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 a a)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 a a) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 a #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (.f64 (.f64 a a) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 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 (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 a a)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #s(literal 4 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #s(literal 4 binary64)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #s(literal 4 binary64))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #s(literal 4 binary64)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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) (/.f64 (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 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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) (/.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 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))) (+.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 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) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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) (/.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 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (+.f64 (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 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) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.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))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.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))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-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 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (.f64 (pow.f64 a #s(literal 4 binary64)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (.f64 (pow.f64 a #s(literal 4 binary64)) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 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 x-scale x-scale))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 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 (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-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 x-scale x-scale))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.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))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.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))) (pow.f64 (.f64 a x-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 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 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 x-scale x-scale))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 a a)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (pow.f64 a #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 a a)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 a #s(literal 4 binary64)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (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)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (pow.f64 a #s(literal 4 binary64)) (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 (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 a #s(literal 4 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 #s(literal -1 binary64) (.f64 (.f64 a a) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 (.f64 a a) (fma.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (/.f64 (.f64 (.f64 b b) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (*.f64 a a)))))
#s(approx (- (* 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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 a #s(literal 3 binary64)) (-.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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 a #s(literal 3 binary64)) (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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 a #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 a a) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (.f64 x-scale y-scale)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b b) 4) (.f64 #s(literal 4 binary64) (.f64 b b)))
#s(approx (* b b) (*.f64 b b))
#s(approx b b)
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) (.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 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 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (*.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 (.f64 b b) (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (.f64 (.f64 b b) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 (.f64 b b) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (pow (* 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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.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 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 (.f64 b b) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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 -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.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 (fma.f64 #s(literal -8 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)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.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 (fma.f64 #s(literal -8 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)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 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 x-scale x-scale)) (.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (*.f64 x-scale x-scale)))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 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 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 b b) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 b b) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (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 x-scale x-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 x-scale x-scale)))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-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 x-scale x-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 x-scale x-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 x-scale x-scale)))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (fma.f64 #s(literal -2 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 x-scale x-scale)) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (fma.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (fma.f64 #s(literal -2 binary64) (.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 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (fma.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/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) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/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) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (fma.f64 #s(literal -2 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (fma.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 a (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))))))
#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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (-.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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (-.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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 3 binary64)) (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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 b b) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 b b) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (.f64 x-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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (.f64 b b) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (*.f64 x-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 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 b b) x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) x-scale))))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 b b)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 (.f64 b b) y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)) y-scale))))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (.f64 (.f64 b b) (+.f64 (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (pow.f64 b #s(literal 6 binary64))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (.f64 (.f64 b b) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 b b)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #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 x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #s(literal 4 binary64)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #s(literal 4 binary64))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #s(literal 4 binary64)))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -8 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 x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -8 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 x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 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) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -8 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 x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (+.f64 (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 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) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (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) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.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))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (.f64 b b)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.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))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 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 x-scale x-scale))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-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 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (.f64 (pow.f64 b #s(literal 4 binary64)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (.f64 (pow.f64 b #s(literal 4 binary64)) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 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 x-scale x-scale))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.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))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.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))) (pow.f64 (.f64 b x-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 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 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 x-scale x-scale))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 b b)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (pow.f64 b #s(literal 4 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 b b)) (+.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64)))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.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 b b)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.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 b b)) (+.f64 (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 b #s(literal 4 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 (.f64 b b) (+.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (.f64 a a) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 b b))))))
#s(approx (- (* 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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (-.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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (-.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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (sqrt.f64 #s(literal 8 binary64)))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (pow.f64 b #s(literal 3 binary64)) (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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))) (.f64 (pow.f64 b #s(literal 6 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 b #s(literal 4 binary64)) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))) (.f64 (.f64 b b) (.f64 x-scale y-scale))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (/.f64 (.f64 (.f64 a a) (sqrt.f64 #s(literal 8 binary64))) (.f64 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal 1/4 binary64) (.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))) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.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))) (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 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 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))) (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 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 a (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (/.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (/.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 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 (.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 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))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))))) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (/.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 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 (.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (*.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)))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (.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)))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (.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)))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (/.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 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 (.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 a (.f64 (.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (.f64 x-scale (sqrt.f64 #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (.f64 y-scale y-scale)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale))))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/64800 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* 1/180 (* angle (PI))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64)))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 6 binary64)) (pow.f64 b #s(literal 4 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))))) (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)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 16 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 b #s(literal 4 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))))) (fma.f64 #s(literal 16 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 6 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64)))) (.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)) (-.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)) (+.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/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (pow.f64 (.f64 x-scale y-scale) #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)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 6 binary64)) (pow.f64 b #s(literal 4 binary64))) (.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64)))) (.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)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.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)) (-.f64 (+.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 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (/.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 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 (.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (pow.f64 (.f64 x-scale y-scale) #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)) (-.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)) (+.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/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (pow.f64 (.f64 x-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 #s(literal 2 binary64) (/.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 a a) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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 a a) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 (.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 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (/.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 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 (.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.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 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 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 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))
#s(approx (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (+.f64 (/.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 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))))))) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (/.f64 (*.f64 b b) x-scale))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale))))) (/.f64 (*.f64 b b) x-scale)))
#s(approx (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) x-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) x-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) x-scale) (fma.f64 (.f64 angle angle) (+.f64 (/.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))))) x-scale) (/.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))))) x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) x-scale)))))) (/.f64 (.f64 b b) x-scale)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (*.f64 b b))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 b b)))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* a (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 a (.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* a (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* (/ angle 180) (PI))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* (/ 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) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))) (.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 b b)))
#s(approx (pow (* b (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 b b)))
#s(approx (* b (cos (* (/ angle 180) (PI)))) b)
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (.f64 #s(literal -1/64800 binary64) (.f64 (.f64 angle angle) (.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 b (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* (/ angle 180) (PI)))) (+.f64 b (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 b (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (cos (* (/ angle 180) (PI))) #s(literal 1 binary64))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/64800 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* (/ angle 180) (PI))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (fma.f64 (.f64 angle angle) (+.f64 (/.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (/.f64 (*.f64 a a) y-scale))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale))))) (/.f64 (*.f64 a a) y-scale)))
#s(approx (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) y-scale) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) y-scale) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) y-scale) (fma.f64 (.f64 angle angle) (+.f64 (/.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))))) y-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))))) y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) y-scale)))))) (/.f64 (.f64 a a) y-scale)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (*.f64 a a))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (*.f64 a a))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))) (.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 a a)))
#s(approx (pow (* a (cos (* (/ angle 180) (PI)))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 a a)))
#s(approx (* a (cos (* (/ angle 180) (PI)))) a)
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (.f64 #s(literal -1/64800 binary64) (.f64 a (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 a (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/25194240000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* a (cos (* (/ angle 180) (PI)))) (+.f64 a (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 a (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 #s(literal 1/25194240000 binary64) (*.f64 a (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 angle angle) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* b (sin (* (/ angle 180) (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (*.f64 b (PI.f64)))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64)))) (.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* b (sin (* (/ angle 180) (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 7 binary64)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))) (-.f64 (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (+.f64 (/.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 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 (.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 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (/.f64 (.f64 a a) (*.f64 y-scale y-scale))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))
#s(approx (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (+.f64 (/.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 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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (*.f64 b b))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 b b)))
#s(approx (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (*.f64 b b)))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 a a) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (.f64 #s(literal 1/180 binary64) (.f64 a (*.f64 angle (PI.f64)))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64)))) (.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 a (.f64 (*.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* a (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 a (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 a (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 a (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (*.f64 b b))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 angle angle) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))) (.f64 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 b b)))
#s(approx (pow (* b (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 b b)))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) b)
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (.f64 #s(literal -1/64800 binary64) (.f64 (.f64 angle angle) (.f64 b (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 b (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* b (cos (* 1/180 (* angle (PI))))) (+.f64 b (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 b (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 #s(literal 1/25194240000 binary64) (*.f64 b (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.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 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 a a)) (/.f64 (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 a a)) (/.f64 (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (+.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 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 a a)) (/.f64 (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (-.f64 (+.f64 (/.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 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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 a a)) (/.f64 (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 (.f64 b b) (.f64 x-scale x-scale))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 a a)) (/.f64 (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (fma.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))) (.f64 a a)) (/.f64 (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (*.f64 a x-scale) #s(literal 2 binary64))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))))))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 angle angle) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale))) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale)))) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)))) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 (.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 x-scale x-scale))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (+.f64 (/.f64 (.f64 (.f64 a a) (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 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (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 x-scale x-scale))))) (+.f64 (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)))) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (*.f64 a a))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (*.f64 a a)))
#s(approx (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))) (*.f64 a a)))
#s(approx (pow (* a (cos (* 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) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 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) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 a a)))
#s(approx (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 a a)))
#s(approx (* a (cos (* 1/180 (* angle (PI))))) a)
#s(approx (* a (cos (* 1/180 (* angle (PI))))) (+.f64 a (.f64 #s(literal -1/64800 binary64) (.f64 a (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64))))))
#s(approx (* a (cos (* 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 (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 angle angle) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))))))))
#s(approx (pow (* b (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 b b) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (.f64 #s(literal 1/180 binary64) (.f64 angle (*.f64 b (PI.f64)))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64)))) (.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (*.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* b (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 b (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (.f64 b (pow.f64 (PI.f64) #s(literal 7 binary64)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 b (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-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)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-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)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-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)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (*.f64 x-scale x-scale))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))))))))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale))))))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 angle angle) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))))))))))))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/102036672000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (fma.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))))))))))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 angle angle) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (*.f64 a a))) #s(literal 2 binary64))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))))))))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)) (.f64 (.f64 angle angle) (.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))) (pow.f64 (-.f64 (.f64 b b) (*.f64 a a)) #s(literal 2 binary64)))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 #s(literal 1/180 binary64) (.f64 angle (.f64 (PI.f64) (-.f64 (.f64 b b) (*.f64 a a))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a)))) (.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a)))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (*.f64 a a))))))))))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 3 binary64)) (-.f64 (.f64 b b) (.f64 a a))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (.f64 (pow.f64 (PI.f64) #s(literal 7 binary64)) (-.f64 (.f64 b b) (.f64 a a)))) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 5 binary64)) (-.f64 (.f64 b b) (.f64 a a)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.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))))))) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.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 (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #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 x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.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 (cos.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 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.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 (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))
#s(approx (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale))) (/.f64 (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)))
#s(approx (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))
#s(approx (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)) (/.f64 (pow.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)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (pow.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)))) #s(literal 2 binary64)))
#s(approx (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))) #s(literal 2 binary64)))
#s(approx (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (*.f64 a a))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #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 (.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4) (*.f64 #s(literal 4 binary64) x-scale))
#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 x-scale y-scale)) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/4 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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 y-scale (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 y-scale (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #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 (.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 y-scale (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/4 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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 y-scale (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 x-scale x-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 y-scale (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))) x-scale))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 y-scale (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #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 (.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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/16 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (* x-scale (* y-scale y-scale)) (.f64 x-scale (.f64 y-scale y-scale)))
#s(approx (pow (* x-scale y-scale) 2) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
#s(approx (* x-scale y-scale) (*.f64 x-scale y-scale))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 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 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 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 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (.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 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #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 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 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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))))) #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 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (*.f64 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 x-scale x-scale)))
#s(approx (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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)))))))
#s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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))))))
#s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.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 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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)) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (.f64 x-scale x-scale) y-scale)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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))))))) (/.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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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))))))) (/.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.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 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.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 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 y-scale (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (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)) (*.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 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 -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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (pow.f64 x-scale #s(literal 4 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 3 binary64))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (*.f64 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 -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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (pow.f64 x-scale #s(literal 4 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (pow.f64 x-scale #s(literal 6 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (*.f64 y-scale y-scale)))))) (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)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 3 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.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 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))) (.f64 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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/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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.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 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))))))) (.f64 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 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 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale)))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 y-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 y-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 y-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 y-scale)) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/4 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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 x-scale (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 x-scale (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 x-scale (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/4 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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 x-scale (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 x-scale (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 x-scale (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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) (/.f64 #s(literal 1 binary64) (sqrt.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 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 (* y-scale y-scale) (*.f64 y-scale y-scale))
#s(approx y-scale y-scale)
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* y-scale (sqrt 8)) (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (-.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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 x-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)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (.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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 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 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 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 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (.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 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.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 b (cos.f64 (.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (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)) (.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 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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)))))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))))
#s(approx (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/.f64 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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)))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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)))))))))) (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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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)))))))))
#s(approx (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2)))))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64))))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale (pow.f64 y-scale #s(literal 6 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 3 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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))) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale (pow.f64 y-scale #s(literal 4 binary64)))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (.f64 (sqrt.f64 #s(literal 8 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 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)) (.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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))))) (.f64 (/.f64 (.f64 (.f64 a a) (.f64 (.f64 b b) (sqrt.f64 #s(literal 8 binary64)))) x-scale) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 y-scale y-scale)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))
#s(approx (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))) (.f64 (*.f64 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 -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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))))) (.f64 (.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)) (.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 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 -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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))))) (.f64 (.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)) (.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)))))) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 (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)) (.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))) #s(literal 3 binary64))))) (.f64 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 -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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))))) (.f64 (.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)) (.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)))))) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (.f64 (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)) (.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))) #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)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 x-scale x-scale)))))) (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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 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 (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (.f64 (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)) (.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))) #s(literal 3 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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 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 (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))) #s(literal 2 binary64))))) (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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/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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #s(literal 2 binary64)))))) (.f64 (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)) (.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))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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 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)) (.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))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 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 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 (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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)))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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))))))
#s(approx (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) 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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.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))) #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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))) (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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))) #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)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.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)))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale)))

eval875.0ms (2.2%)

Memory: 19.6MiB live, 1 629.5MiB allocated; 191ms collecting garbage
Compiler: Compiled 750 542 to 14 948 computations (98% saved)

prune1.2s (3.2%)

Memory

14.4MiB live, 2 034.9MiB allocated; 241ms collecting garbage

Pruning

52 alts after pruning (51 fresh and 1 done)

	Pruned	Kept	Total
New	1 495	46	1 541
Fresh	13	5	18
Picked	4	1	5
Done	0	0	0
Total	1 512	52	1 564

Accuracy

48.4%

Counts

1 564 → 52

Alt Table

Click to see full alt table

Status	Accuracy	Program
	0.6%	(/.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 #s(approx (+ (pow ( a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 a a)) 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.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 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.4%	(/.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
	2.5%	(/.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (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))))
	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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))))
	6.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)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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(approx (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (.f64 b b)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
	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)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 #s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
	6.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)))) (sqrt.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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))))))))))))
	4.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)))) (sqrt.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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) (/.f64 (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 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))))))))
	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) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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)) #s(approx ( 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
	6.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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	7.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 x-scale x-scale)))))))
	5.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
▶	16.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))))))
▶	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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	12.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))))
	11.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	16.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))))
	3.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	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) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
✓	34.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 a (*.f64 x-scale #s(literal 4 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) #s(approx ( (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
▶	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))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))
	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))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 #s(approx (- (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))))))))
	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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))))))))
▶	2.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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64))))))))
	5.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
	5.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	16.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
	0.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))))
	8.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
	8.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))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
	1.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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
	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))) #s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
	15.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
▶	34.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))) #s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale)))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	9.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

Compiler

Compiled 34 993 to 11 304 computations (67.7% saved)

series956.0ms (2.4%)

Memory

49.9MiB live, 1 441.2MiB allocated; 242ms collecting garbage

Counts

84 → 610

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 (* a (* x-scale 4))) (*.f64 a x-scale)))
#s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale))
(*.f64 a x-scale)
a
x-scale
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.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 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))
(-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))
(/.f64 (.f64 b b) (.f64 x-scale x-scale))
(*.f64 b b)
b
(*.f64 x-scale x-scale)
(.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))
#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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
#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))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(*.f64 y-scale y-scale)
(sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
(.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
(*.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(literal -2 binary64)
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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 (pow.f64 (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))))
(exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))
(*.f64 (log.f64 y-scale) #s(literal 2 binary64))
(log.f64 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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* a (* x-scale 4))) #s(hole binary64 (* a x-scale)))
#s(approx (* a x-scale) #s(hole binary64 (* a x-scale)))
#s(approx a #s(hole binary64 a))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* a a) #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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 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(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (* b b) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (* -1 (/ (* b b) (* x-scale x-scale))) #s(hole binary64 (* -1 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* b (* x-scale (* y-scale (sqrt 8))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 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(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* 1/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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 4))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4)))))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 4))) (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4)))))))))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* -1/16200 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (* 1/1049760000 (pow (PI) 4))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/16200 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (* -1/6122200320000000 (pow (PI) 6))))))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow a 2) (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* (pow a 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow a 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* (pow a 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow a 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* (pow a 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))))) (* (pow a 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))))))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (pow angle 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-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 x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 4)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (/ (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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (pow b 2) (* -1 (pow b 2))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow x-scale 4) #s(hole binary64 (pow x-scale 4)))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (/ (* (pow a 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (* x-scale y-scale) 2) #s(hole binary64 (* (pow x-scale 2) (pow y-scale 2))))
#s(approx (* x-scale y-scale) #s(hole binary64 (* x-scale y-scale)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ (- (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (exp (* (log y-scale) 2)) #s(hole binary64 (pow y-scale 2)))
#s(approx (* (log y-scale) 2) #s(hole binary64 (* 2 (log y-scale))))
#s(approx (log y-scale) #s(hole binary64 (log 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 (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (* (log y-scale) 2) #s(hole binary64 (* -2 (log (/ 1 y-scale)))))
#s(approx (log y-scale) #s(hole binary64 (* -1 (log (/ 1 y-scale)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))
#s(approx (* (log y-scale) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 y-scale)))))))
#s(approx (log y-scale) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 y-scale))))))

Calls

15 calls:

Time	Variable		Point	Expression
161.0ms	y-scale	@	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 (* a (* x-scale 4))) (* a x-scale) a 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))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* -1 (/ (* b b) (* x-scale x-scale))) -1 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (* y-scale y-scale) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (exp (* (log y-scale) 2)) (* (log y-scale) 2) (log y-scale))
62.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 (* a (* x-scale 4))) (* a x-scale) a 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))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* -1 (/ (* b b) (* x-scale x-scale))) -1 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (* y-scale y-scale) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (exp (* (log y-scale) 2)) (* (log y-scale) 2) (log y-scale))
50.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 (* a (* x-scale 4))) (* a x-scale) a 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))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* -1 (/ (* b b) (* x-scale x-scale))) -1 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (* y-scale y-scale) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (exp (* (log y-scale) 2)) (* (log y-scale) 2) (log y-scale))
49.0ms	x-scale	@	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 (* a (* x-scale 4))) (* a x-scale) a 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))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* -1 (/ (* b b) (* x-scale x-scale))) -1 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (* y-scale y-scale) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (exp (* (log y-scale) 2)) (* (log y-scale) 2) (log y-scale))
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 (* a (* x-scale 4))) (* a x-scale) a 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))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (* b b) (* x-scale x-scale)) (* b b) b (* x-scale x-scale) (* -1 (/ (* b b) (* x-scale x-scale))) -1 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) 2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow (sin (* 1/180 (* angle (PI)))) 2) (sin (* 1/180 (* angle (PI)))) (* y-scale y-scale) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (exp (* (log y-scale) 2)) (* (log y-scale) 2) (log y-scale))

rewrite1.1s (2.9%)

Memory

36.9MiB live, 1 781.5MiB allocated; 354ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	3898	322944
0	4028	301983
0	11968	296179

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

694 → 762

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 (* a (* x-scale 4))) (*.f64 a x-scale)))
#s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale))
(*.f64 a x-scale)
a
x-scale
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.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 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))))
(-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale))))
(/.f64 (.f64 b b) (.f64 x-scale x-scale))
(*.f64 b b)
b
(*.f64 x-scale x-scale)
(.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (*.f64 x-scale x-scale)))
#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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
#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))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(*.f64 y-scale y-scale)
(sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
(.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
(*.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(literal -2 binary64)
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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 (pow.f64 (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))))
(exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))
(*.f64 (log.f64 y-scale) #s(literal 2 binary64))
(log.f64 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 (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* a (* x-scale 4))) #s(hole binary64 (* a x-scale)))
#s(approx (* a x-scale) #s(hole binary64 (* a x-scale)))
#s(approx a #s(hole binary64 a))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* a a) #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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 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(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (/ (* b b) (* x-scale x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx b #s(hole binary64 b))
#s(approx (* -1 (/ (* b b) (* x-scale x-scale))) #s(hole binary64 (* -1 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* b (* x-scale (* y-scale (sqrt 8))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 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(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* 1/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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* -1/34992000 (* (pow angle 2) (pow (PI) 3))) (* 1/180 (PI))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* 1/22674816000000 (* (pow angle 2) (pow (PI) 5)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* -1/30855889612800000000 (* (pow angle 2) (pow (PI) 7))) (* 1/22674816000000 (pow (PI) 5))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 4))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4)))))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 4))) (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4)))))))))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* -1/16200 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (* 1/1049760000 (pow (PI) 4))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/16200 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (* -1/6122200320000000 (pow (PI) 6))))))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow a 2) (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* (pow a 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow a 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* (pow a 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow a 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* (pow a 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))) (* (pow angle 2) (+ (* (pow a 2) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))))) (* (pow a 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))))))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/2 (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))))))) (* 1/2 (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (pow angle 2) (- (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))) (+ (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))) (+ (* -1/32400 (* (pow (PI) 2) (- (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))))))))) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))) (* -1/32400 (* (pow (PI) 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (+ (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))) (* (pow angle 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2)))))))))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2)))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow x-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow x-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 x-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow x-scale 2))))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* (pow angle 2) (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 4)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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 (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) #s(hole binary64 (/ (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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))))
#s(approx x-scale #s(hole binary64 x-scale))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) #s(hole binary64 (* x-scale (* y-scale (sqrt 8)))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (pow b 2) (* -1 (pow b 2))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow x-scale 4) #s(hole binary64 (pow x-scale 4)))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (/ (* (pow a 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (* x-scale y-scale) 2) #s(hole binary64 (* (pow x-scale 2) (pow y-scale 2))))
#s(approx (* x-scale y-scale) #s(hole binary64 (* x-scale y-scale)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (/ (- (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (exp (* (log y-scale) 2)) #s(hole binary64 (pow y-scale 2)))
#s(approx (* (log y-scale) 2) #s(hole binary64 (* 2 (log y-scale))))
#s(approx (log y-scale) #s(hole binary64 (log 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 (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) #s(hole binary64 (+ (* -1 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (* (log y-scale) 2) #s(hole binary64 (* -2 (log (/ 1 y-scale)))))
#s(approx (log y-scale) #s(hole binary64 (* -1 (log (/ 1 y-scale)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))
#s(approx (* (log y-scale) 2) #s(hole binary64 (* 2 (+ (log -1) (* -1 (log (/ -1 y-scale)))))))
#s(approx (log y-scale) #s(hole binary64 (+ (log -1) (* -1 (log (/ -1 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(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale)))
#s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale))
(*.f64 a x-scale)
a
x-scale
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))
#s(literal 1/4 binary64)
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
(-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
(*.f64 (/.f64 b x-scale) (/.f64 b x-scale))
(/.f64 (neg.f64 (.f64 b b)) (neg.f64 (.f64 x-scale x-scale)))
(/.f64 (.f64 b b) (.f64 x-scale x-scale))
(*.f64 (neg.f64 b) (neg.f64 b))
(*.f64 (fabs.f64 b) (fabs.f64 b))
(*.f64 b b)
(pow.f64 b #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 b) #s(literal 2 binary64)))
b
(*.f64 (neg.f64 x-scale) (neg.f64 x-scale))
(*.f64 (fabs.f64 x-scale) (fabs.f64 x-scale))
(*.f64 x-scale x-scale)
(pow.f64 x-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 x-scale) #s(literal 2 binary64)))
(.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
(/.f64 (+.f64 (pow.f64 (/.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(literal 3 binary64)) (pow.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 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 (/.f64 (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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
#s(literal 2 binary64)
(/.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(*.f64 (neg.f64 y-scale) (neg.f64 y-scale))
(*.f64 (fabs.f64 y-scale) (fabs.f64 y-scale))
(*.f64 (exp.f64 (log.f64 y-scale)) (exp.f64 (log.f64 y-scale)))
(*.f64 y-scale y-scale)
(pow.f64 (exp.f64 (log.f64 y-scale)) #s(literal 2 binary64))
(pow.f64 y-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))
(pow.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (neg.f64 (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))
#s(literal 4 binary64)
(pow.f64 x-scale #s(literal 4 binary64))
(exp.f64 (*.f64 (log.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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
(pow.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
(.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.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 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(/.f64 (neg.f64 (pow.f64 (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 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (neg.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
(/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(+.f64 (/.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (-.f64 (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))))
(fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
(+.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))
#s(literal -2 binary64)
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (.f64 x-scale x-scale)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.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 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(.f64 (.f64 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(*.f64 (neg.f64 y-scale) (neg.f64 y-scale))
(*.f64 (fabs.f64 y-scale) (fabs.f64 y-scale))
(*.f64 (exp.f64 (log.f64 y-scale)) (exp.f64 (log.f64 y-scale)))
(*.f64 y-scale y-scale)
(pow.f64 (exp.f64 (log.f64 y-scale)) #s(literal 2 binary64))
(pow.f64 y-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64)))
(+.f64 (cosh.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))) (sinh.f64 (.f64 (log.f64 y-scale) #s(literal 2 binary64))))
(*.f64 (log.f64 y-scale) #s(literal 2 binary64))
(log.f64 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale))
#s(approx (* a x-scale) (*.f64 a x-scale))
#s(approx a a)
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 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 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 a (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 a a)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #s(literal 4 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.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 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 (.f64 b b) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (/ (* b b) (* x-scale x-scale)) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(approx (* b b) (*.f64 b b))
#s(approx b b)
#s(approx (* -1 (/ (* b b) (* x-scale x-scale))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) (.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 b b)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #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 x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal 1/4 binary64) (.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))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.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))) (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 a) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (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 a (.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b 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 x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (/.f64 (.f64 a a) (*.f64 y-scale y-scale)))))))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))) (.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (.f64 (/.f64 b x-scale) (/.f64 b x-scale)) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (.f64 #s(literal -1 binary64) (*.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))))) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 angle (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale))))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/64800 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* 1/180 (* angle (PI))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/16200 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 1 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/6298560000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 1 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/6298560000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #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/16200 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)) (*.f64 #s(literal -1/6122200320000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (.f64 (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale)))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))) (.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (.f64 (.f64 a a) (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))))))))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 a a) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (fma.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (fma.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))))))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (fma.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (fma.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))))))))) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))))))) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 x-scale x-scale))))))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale))))))))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 x-scale x-scale)))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)))))))))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-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)) (fma.f64 #s(literal 1/2040733440000000 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)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 x-scale x-scale)))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 angle (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (fma.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64)))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (fma.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* 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 (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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 (pow.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)))) #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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #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 (/.f64 (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.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 (pow.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)))) #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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale)
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))
#s(approx (* x-scale (* y-scale (sqrt 8))) (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 x-scale x-scale)))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))
#s(approx (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 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 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow x-scale 4) (pow.f64 x-scale #s(literal 4 binary64)))
#s(approx (* (* a a) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/.f64 (.f64 (.f64 a a) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 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 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
#s(approx (* x-scale y-scale) (*.f64 x-scale y-scale))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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))) (/.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 (pow.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)))) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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/8 binary64) (.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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/8 binary64) (.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 (-.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 (pow.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)))) #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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))))))
#s(approx (* y-scale (sqrt 8)) (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx y-scale y-scale)
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (exp (* (log y-scale) 2)) (*.f64 y-scale y-scale))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (/.f64 (-.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (exp (* (log y-scale) 2)) (*.f64 y-scale y-scale))
#s(approx (* (log y-scale) 2) (*.f64 #s(literal 2 binary64) (log.f64 y-scale)))
#s(approx (log y-scale) (log.f64 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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))) (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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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 (pow.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)))) #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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (pow.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)))) #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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))
#s(approx (* (log y-scale) 2) (*.f64 #s(literal -2 binary64) (neg.f64 (log.f64 y-scale))))
#s(approx (log y-scale) (*.f64 #s(literal -1 binary64) (neg.f64 (log.f64 y-scale))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (exp (* (log y-scale) 2)))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale)))
#s(approx (* (log y-scale) 2) (*.f64 #s(literal 2 binary64) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) y-scale) #s(literal -1 binary64))))))
#s(approx (log y-scale) (+.f64 (log.f64 #s(literal -1 binary64)) (log.f64 (pow.f64 (/.f64 #s(literal -1 binary64) y-scale) #s(literal -1 binary64)))))

eval1.1s (2.7%)

Memory: 14.3MiB live, 2 064.4MiB allocated; 123ms collecting garbage
Compiler: Compiled 447 661 to 8 368 computations (98.1% saved)

prune854.0ms (2.2%)

Memory

27.8MiB live, 2 173.4MiB allocated; 203ms collecting garbage

Pruning

54 alts after pruning (52 fresh and 2 done)

	Pruned	Kept	Total
New	828	23	851
Fresh	17	29	46
Picked	4	1	5
Done	0	1	1
Total	849	54	903

Accuracy

50.3%

Counts

903 → 54

Alt Table

Click to see full alt table

Status	Accuracy	Program
	0.6%	(/.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 #s(approx (+ (pow ( a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 a a)) 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.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 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.4%	(/.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
	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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))))))
	6.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)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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(approx (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (.f64 b b)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
	6.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)))) (sqrt.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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))))))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
	6.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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	7.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 x-scale x-scale)))))))
	15.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (exp.f64 (*.f64 (log.f64 x-scale) #s(literal 2 binary64)))))))))))
	15.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
	15.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))))))))))))
	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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) #s(literal 1 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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 #s(approx (cos ( 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	8.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))))))))))
	12.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))))
▶	16.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))))))
▶	23.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
	11.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	16.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))))
	3.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
▶	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) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
✓	34.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 a (*.f64 x-scale #s(literal 4 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) #s(approx ( (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
	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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	0.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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 (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.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 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64))))))))
	5.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
	5.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
	2.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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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))))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64)))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	8.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	0.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	16.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
	0.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))))
	8.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
	1.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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
	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))) #s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
	15.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
✓	34.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))) #s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale)))
▶	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	9.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

Compiler

Compiled 36 932 to 11 799 computations (68.1% saved)

series2.0s (5%)

Memory

-38.2MiB live, 1 411.9MiB allocated; 2.0s collecting garbage

Counts

89 → 629

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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))
#s(literal 1/4 binary64)
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
(.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(literal 2 binary64)
(*.f64 (/.f64 b x-scale) (/.f64 b x-scale))
(/.f64 b x-scale)
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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))
(/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))
(-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (*.f64 b b)))
(*.f64 b b)
(.f64 #s(literal -1 binary64) (.f64 b b))
#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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
(-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
(.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
(.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
(*.f64 y-scale y-scale)
(fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(literal -2 binary64)
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(.f64 a (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
a
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* a (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* a (* x-scale (* y-scale (sqrt 8))))))
#s(approx a #s(hole binary64 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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 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(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* 2 (* (/ b x-scale) (/ b x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* (/ b x-scale) (/ b x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ b x-scale) #s(hole binary64 (/ b x-scale)))
#s(approx b #s(hole binary64 b))
#s(approx (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* b b) (* -1 (* b b))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx (* -1 (* b b)) #s(hole binary64 (* -1 (pow b 2))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* b (* x-scale (* y-scale (sqrt 8))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* b (* y-scale (sqrt 8))) #s(hole binary64 (* b (* y-scale (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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 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(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* 1/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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 4))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4)))))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 4))) (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4)))))))))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* -1/16200 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (* 1/1049760000 (pow (PI) 4))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/16200 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (* -1/6122200320000000 (pow (PI) 6))))))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (+ (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/8 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (+ (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/8 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))) (* 1/2 (/ (* (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/2 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/2 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))) (* 1/2 (/ (* (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (+ (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))) (* 1/2 (* (* (pow angle 2) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (+ (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (+ (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))) (* 1/2 (/ (* (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (+ 1 (* (pow angle 2) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (+ 1 (* (pow angle 2) (- (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (+ 1 (* (pow angle 2) (- (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (- (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4)))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (- (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (- (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* (pow angle 2) (- (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4)))))))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))) (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))))))))))) (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))))) (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* (pow angle 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (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 (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (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 y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* angle (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* 1/8 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/8 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/8 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (+ (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* angle (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (+ (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (+ (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ 1 (pow y-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))))) (/ 1 (pow y-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ 1 (pow y-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))))))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow y-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))))) (/ 1 (pow y-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))))))) (/ 1 (pow y-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ 1 (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (pow y-scale 2))) (/ 1 (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (/ 1 (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* (pow angle 2) (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))))) (/ 1 (pow y-scale 4)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ -1 (pow y-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow y-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow y-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 4)))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (/ (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 (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (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 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (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 (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (pow b 2) (* -1 (pow b 2))) (pow x-scale 2))))
#s(approx (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) #s(hole binary64 (/ (- (pow b 2) (* -1 (pow b 2))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow x-scale 4) #s(hole binary64 (pow x-scale 4)))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/16 (* (/ (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* -1/8 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/16 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/8 (* (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/8 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-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 (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (* x-scale y-scale) 2) #s(hole binary64 (* (pow x-scale 2) (pow y-scale 2))))
#s(approx (* x-scale y-scale) #s(hole binary64 (* x-scale y-scale)))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/16 (* (/ (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* -1/8 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/16 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* -1/16 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/8 (* (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/8 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 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 (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow y-scale 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))

Calls

15 calls:

Time	Variable		Point	Expression
102.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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) x-scale (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ b x-scale) (/ b x-scale))) 2 (* (/ b x-scale) (/ b x-scale)) (/ b x-scale) b (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (- (* b b) (* -1 (* b b))) (* b b) (* -1 (* b b)) -1 (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (pow (sin (* 1/180 (* angle (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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* a (* x-scale (* y-scale (sqrt 8)))) a (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))))
70.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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) x-scale (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ b x-scale) (/ b x-scale))) 2 (* (/ b x-scale) (/ b x-scale)) (/ b x-scale) b (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (- (* b b) (* -1 (* b b))) (* b b) (* -1 (* b b)) -1 (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (pow (sin (* 1/180 (* angle (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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* a (* x-scale (* y-scale (sqrt 8)))) a (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))))
65.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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) x-scale (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ b x-scale) (/ b x-scale))) 2 (* (/ b x-scale) (/ b x-scale)) (/ b x-scale) b (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (- (* b b) (* -1 (* b b))) (* b b) (* -1 (* b b)) -1 (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (pow (sin (* 1/180 (* angle (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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* a (* x-scale (* y-scale (sqrt 8)))) a (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))))
65.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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) x-scale (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ b x-scale) (/ b x-scale))) 2 (* (/ b x-scale) (/ b x-scale)) (/ b x-scale) b (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (- (* b b) (* -1 (* b b))) (* b b) (* -1 (* b b)) -1 (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (pow (sin (* 1/180 (* angle (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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* a (* x-scale (* y-scale (sqrt 8)))) a (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))))
48.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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (* x-scale (* y-scale (sqrt 8))) x-scale (* y-scale (sqrt 8)) y-scale (sqrt 8) 8 (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (* 2 (* (/ b x-scale) (/ b x-scale))) 2 (* (/ b x-scale) (/ b x-scale)) (/ b x-scale) b (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (- (* b b) (* -1 (* b b))) (* b b) (* -1 (* b b)) -1 (* 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))) (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow (cos (* 1/180 (* angle (PI)))) 2) (cos (* 1/180 (* angle (PI)))) (* 1/180 (* angle (PI))) 1/180 (* angle (PI)) angle (PI) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow (cos (* 1/180 (* angle (PI)))) 4) 4 (pow x-scale 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (sin (* 1/180 (* angle (PI)))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (pow (sin (* 1/180 (* angle (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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (* a (* x-scale (* y-scale (sqrt 8)))) a (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (pow (* x-scale y-scale) 2) (* x-scale y-scale) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))))

rewrite1.2s (3%)

Memory

9.7MiB live, 1 574.0MiB allocated; 340ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	4847	332628
0	4986	312564
0	15223	305962

Stop Event

1×	iter-limit
1×	node-limit
1×	iter-limit

Counts

718 → 777

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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))))
#s(literal 1/4 binary64)
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
(*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))
y-scale
(sqrt.f64 #s(literal 8 binary64))
#s(literal 8 binary64)
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale))))
(.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))
#s(literal 2 binary64)
(*.f64 (/.f64 b x-scale) (/.f64 b x-scale))
(/.f64 b x-scale)
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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))
(/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))
(-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (*.f64 b b)))
(*.f64 b b)
(.f64 #s(literal -1 binary64) (.f64 b b))
#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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
(-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))
#s(literal 4 binary64)
(pow.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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
(.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
(.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
(*.f64 y-scale y-scale)
(fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(literal -2 binary64)
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(.f64 a (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
a
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))
(*.f64 x-scale y-scale)
(pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow b 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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 a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow b 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow b 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow b 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow a 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow a 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* (pow a 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow a 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (* (pow a 2) (+ (* -1/2 (* (* (pow a 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* -1/2 (* (pow a 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow a 2) (- (+ (* (pow a 2) (- (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2)))) (* 4 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow b 2) (pow x-scale 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))))) (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2)))) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* a (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* a (* x-scale (* y-scale (sqrt 8))))))
#s(approx a #s(hole binary64 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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow a 2) (- (+ (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 6) (pow (cos (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))) (pow a 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow a 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(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow a 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow a 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow b 2) (pow (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 (* (+ (* -8 (/ (* (pow b 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* a (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* a (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* a (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow a 6)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow b 4) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow a 4)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow a 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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 b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))))) 2) (- (+ (/ (* (pow a 2) (pow (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)))))) (* 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))) (* 1/2 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))))) (- (+ (/ (* (pow a 2) (pow (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)))))) (* -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)))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (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)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow b 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/8 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/8 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow b 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow b 2) (+ (* -1/2 (* (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (* (pow b 2) (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (* (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow b 2) (+ (* 1/2 (* (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (* (pow b 2) (+ (* -1/2 (* (* (pow b 2) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* -1/2 (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* -1/2 (* (+ (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) 2) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (sqrt (/ 1 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* -1/2 (* (pow b 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (+ (* (pow b 2) (- (+ (* (pow b 2) (- (* 1/2 (/ (* (pow b 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (* 1/2 (- (+ (* -2 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2)))) (* 4 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* (pow a 2) (pow x-scale 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (- (+ (* -8 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (* (pow (sin (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 4) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow a 4) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-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 a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* 2 (* (/ b x-scale) (/ b x-scale))) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (* (/ b x-scale) (/ b x-scale)) #s(hole binary64 (/ (pow b 2) (pow x-scale 2))))
#s(approx (/ b x-scale) #s(hole binary64 (/ b x-scale)))
#s(approx b #s(hole binary64 b))
#s(approx (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) #s(hole binary64 (* 2 (/ (pow b 2) (pow x-scale 2)))))
#s(approx (- (* b b) (* -1 (* b b))) #s(hole binary64 (* 2 (pow b 2))))
#s(approx (* b b) #s(hole binary64 (pow b 2)))
#s(approx (* -1 (* b b)) #s(hole binary64 (* -1 (pow b 2))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) #s(hole binary64 (* b (* x-scale (* y-scale (sqrt 8))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* b (* y-scale (sqrt 8))) #s(hole binary64 (* b (* y-scale (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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* -1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 4))) (+ (/ (* (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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (* (pow b 2) (- (+ (* 1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow b 6) (pow (sin (* 1/180 (* angle (PI)))) 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)))) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (* 1/2 (/ (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))) (pow b 2))) (* 1/2 (/ (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow b 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(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (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)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (/ (* (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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)))))))) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 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)))))) (* -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))))))))) (pow b 6)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 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)))))) (* 1/2 (* (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (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))))))))))) (pow b 4)) (sqrt (/ 1 (- (+ (/ (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)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (pow a 2) (pow (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 (* (+ (* -8 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (pow y-scale 2)))) (* 2 (* (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))) (sqrt (/ 1 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (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 2)) (sqrt (/ 1 (- (+ (/ (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)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (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))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1 (* b (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* b (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* x-scale (* y-scale (* (sqrt 8) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* b (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* -1/2 (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow b 6)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* 1/4 (/ (pow (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* 1/2 (- (+ (* -2 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow a 4) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow b 4)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (- (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (* 1/2 (- (+ (* -8 (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* -2 (/ (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2)) (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (* (pow a 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow b 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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) (* x-scale (* (pow y-scale 2) (* (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)))))))))) (* a (sqrt 2)))) (* 1/4 (* a (* x-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 (* a (* x-scale (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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))))))))))) (* a (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 (* (sqrt 2) (sqrt 8))))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))))))))) (* a (sqrt 2)))) (* (pow angle 2) (+ (* 1/8 (/ (* x-scale (* (pow y-scale 2) (* (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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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)))))))))) (* a (sqrt 2)))) (* 1/8 (/ (* (pow angle 2) (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (+ (/ (* (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 y-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))) (+ (/ (* (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 y-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 a 2) (pow (sqrt 2) 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) (pow (sqrt 2) 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))))))))))) (* a (sqrt 2)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (+ (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/8 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (+ (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (/ (* (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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* 1/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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (+ (sqrt (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))) (* (pow angle 2) (+ (* 1/2 (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* (pow angle 2) (+ (* 1/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))) (+ (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))) (* 1/2 (/ (* (- (+ (* -1/32400 (/ (* (pow b 2) (pow (PI) 2)) (pow x-scale 2))) (* 1/32400 (/ (* (pow a 2) (pow (PI) 2)) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-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/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))) (* 1/2 (* (- (+ (* -1/3149280000 (/ (* (pow a 2) (pow (PI) 4)) (pow x-scale 2))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2))) (+ (* 1/4 (/ (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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2))))))) 2) (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))) (sqrt (/ 1 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(hole binary64 (- (/ (pow b 2) (pow x-scale 2)) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #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))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2)))) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (+ (/ (* (pow a 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 x-scale 2)) (/ (* (pow b 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 x-scale 2))))) (pow a 2))) (* 4 (/ (+ (* 1/102036672000000 (/ (* (pow (PI) 6) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-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))) (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))) (pow a 2)) (/ (* (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2)))))))) (/ (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 2)))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (+ (/ (* (pow a 2) (+ (* -1/3149280000 (* (pow a 2) (pow (PI) 4))) (* (pow b 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/3149280000 (* (pow b 2) (pow (PI) 4))) (* (pow a 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))) (pow x-scale 2)))) (pow a 2))) (* 4 (/ (+ (* -1/1049760000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2))) (* -1/3149280000 (/ (* (pow (PI) 4) (pow (- (pow b 2) (pow a 2)) 2)) (pow x-scale 2)))) (pow a 2)))) (+ (* -2 (/ (* (pow b 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) (pow x-scale 2)))) (/ (* (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2)))) (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))) (pow a 2))))))))) (* 1/2 (- (+ (* -2 (/ (+ (/ (* (pow a 2) (+ (* -1/32400 (* (pow b 2) (pow (PI) 2))) (* 1/32400 (* (pow a 2) (pow (PI) 2))))) (pow x-scale 2)) (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (pow x-scale 2))) (pow a 2))) (* 1/8100 (/ (* (pow (PI) 2) (pow (- (pow b 2) (pow a 2)) 2)) (* (pow a 2) (pow x-scale 2))))) (* -2 (/ (* (pow b 2) (+ (* -1/32400 (* (pow a 2) (pow (PI) 2))) (* 1/32400 (* (pow b 2) (pow (PI) 2))))) (* (pow a 2) (pow x-scale 2)))))))) (/ (pow b 2) (pow x-scale 2))) (* -1 (/ (pow b 2) (pow x-scale 2))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* -1/8 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* -1/8 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* angle (* b (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* (pow angle 2) (* b (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow x-scale 2))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/11108120260608000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 1/317374864588800000000 (/ (pow (PI) 8) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))) 2)))))) (+ (* -1/198359290368000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/1388515032576000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/4 (* (pow x-scale 4) (pow (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))) 2))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))))))) (/ 1 (pow x-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow x-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* -1/32400 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 1))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* -1/64800 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* 1/25194240000 (* (pow angle 2) (pow (PI) 4))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/64800 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/24488801280000000 (* (pow angle 2) (pow (PI) 6))) (* 1/25194240000 (pow (PI) 4)))))))))
#s(approx (* 1/180 (* angle (PI))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* angle (PI)) #s(hole binary64 (* angle (PI))))
#s(approx angle #s(hole binary64 angle))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow x-scale 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow x-scale 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/2 (* (pow x-scale 4) (* (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (pow x-scale 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (+ (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/4 (* (pow x-scale 4) (pow (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (/ 1 (pow x-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (- (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (- (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (- (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4))) (+ (* 2 (* (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/12597120000 (/ (pow (PI) 4) (pow x-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow x-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (+ (* 1/1020366720000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/612220032000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2))))))) (pow (- (* -1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (* -1/1574640000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))))) (* 1/16200 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ 1 (pow x-scale 4))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* -1/16200 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 4))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4)))))))) (/ 1 (pow x-scale 4)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow x-scale 4))) (* (pow angle 2) (+ (* 1/6298560000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/2099520000 (/ (pow (PI) 4) (pow x-scale 4))) (+ (* 1/1049760000 (/ (pow (PI) 4) (pow x-scale 4))) (* (pow angle 2) (+ (* -1/16200 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow x-scale 4))) (+ (* -1/408146688000000 (/ (pow (PI) 6) (pow x-scale 4))) (* -1/6122200320000000 (/ (pow (PI) 6) (pow x-scale 4)))))))))))) (/ 1 (pow x-scale 4)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 1))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* -1/16200 (* (pow angle 2) (pow (PI) 2))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (* 1/1049760000 (pow (PI) 4))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (+ 1 (* (pow angle 2) (+ (* -1/16200 (pow (PI) 2)) (* (pow angle 2) (+ (* 1/6298560000 (pow (PI) 4)) (+ (* 1/2099520000 (pow (PI) 4)) (+ (* 1/1049760000 (pow (PI) 4)) (* (pow angle 2) (+ (* -1/16200 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/408146688000000 (pow (PI) 6)) (* -1/6122200320000000 (pow (PI) 6))))))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (+ (* 1/8 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (+ (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/8 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (+ (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))) (* (pow angle 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* (pow angle 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/8 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))) (* 1/2 (/ (* (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (+ (* 1/2 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/2 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* y-scale (* (sqrt 8) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (* b (* y-scale (* (sqrt 8) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))) (* 1/2 (* (* (pow angle 2) (* b (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))) (* 1/2 (/ (* (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (+ (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))) (* 1/2 (* (* (pow angle 2) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (+ (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (+ (sqrt (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))) (* 1/2 (/ (* (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (+ (* 1/4 (/ (pow (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) 2) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))))) (sqrt (/ 1 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))))))))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- 1 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (+ 1 (* (pow angle 2) (- (* -1/32400 (pow (PI) 2)) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (+ 1 (* (pow angle 2) (- (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (- (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (+ 1 (* (pow angle 2) (- (+ (* -1/32400 (pow (PI) 2)) (* (pow angle 2) (- (+ (* 1/12597120000 (pow (PI) 4)) (+ (* 1/4199040000 (pow (PI) 4)) (* (pow angle 2) (- (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4))))))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (+ (* 16200 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (+ (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4)))))))) (* 1/2 (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4)))))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (- (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))) (pow (PI) 2))) (* (pow angle 2) (- (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* (pow angle 2) (- (+ (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (* (pow angle 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))) (pow (PI) 2))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (+ (* 32400 (/ (* (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (PI) 2))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8))))) (pow (PI) 4)))))))) (+ (* -1/97200 (* (pow (PI) 2) (- (* 32400 (/ (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))) (pow (PI) 2))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))) (* 1049760000 (/ (* (pow y-scale 2) (* (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (pow (PI) 4))))))) (* -1/3 (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))) (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (+ (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))))))))))) (* (pow y-scale 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))))) (* (pow y-scale 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))) (* (pow y-scale 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2)))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (* (pow angle 2) (+ (* -1/16200 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))) (* (pow angle 2) (+ (* -2 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (+ (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))) (* (pow angle 2) (+ (* -2 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2)))))))))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (pow y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (* -1/3149280000 (pow (PI) 4))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/1049760000 (pow (PI) 4)) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (+ (* 1/102036672000000 (pow (PI) 6)) (+ (* 1/32400 (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (* (pow angle 2) (+ (* -1/32400 (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))) (+ (* -1/3149280000 (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4))))) (+ (* -1/396718580736000000000 (pow (PI) 8)) (+ (* -1/2777030065152000000000 (pow (PI) 8)) (* 1/32400 (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* 1/180 (* angle (PI)))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (* -1/34992000 (pow (PI) 3))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (* 1/2267481600000 (pow (PI) 5))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* angle (+ (* 1/180 (PI)) (* (pow angle 2) (+ (* -1/11664000 (pow (PI) 3)) (+ (* -1/34992000 (pow (PI) 3)) (* (pow angle 2) (+ (* 1/22674816000000 (pow (PI) 5)) (+ (* 1/4534963200000 (pow (PI) 5)) (+ (* 1/2267481600000 (pow (PI) 5)) (* (pow angle 2) (+ (* -1/881596846080000000 (pow (PI) 7)) (+ (* -1/1469328076800000000 (pow (PI) 7)) (+ (* -1/4407984230400000000 (pow (PI) 7)) (* -1/30855889612800000000 (pow (PI) 7)))))))))))))))))
#s(approx (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 (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* 1/8100 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2)))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* 4 (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 4 (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))) (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (pow y-scale 2)))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* (pow angle 2) (+ (* 1/8100 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (pow y-scale 2))) (* -1/3149280000 (/ (pow (PI) 4) (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 y-scale 2))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (pow y-scale 2))))))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (pow y-scale 2))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (pow y-scale 2)))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* 1/32400 (* (pow angle 2) (pow (PI) 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (* (pow angle 2) (pow (PI) 4))) (* 1/32400 (pow (PI) 2))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (pow (PI) 2)) (* (pow angle 2) (+ (* -1/3149280000 (pow (PI) 4)) (* (pow angle 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (+ (* 1/1224440064000000 (pow (PI) 6)) (* (pow angle 2) (+ (* -1/396718580736000000000 (pow (PI) 8)) (* -1/2777030065152000000000 (pow (PI) 8)))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* angle (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* 1/8 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/8 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* angle (+ (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))) (* (pow angle 2) (+ (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/8 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/8 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (+ (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* angle (* x-scale (* y-scale (sqrt 8))))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* 1/2 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* angle (+ (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* (pow angle 2) (+ (* 1/2 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* (pow angle 2) (+ (* 1/2 (* (* a (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))) (* 1/2 (* (* a (* (pow angle 2) (* x-scale (* y-scale (* (sqrt 8) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (+ (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* angle (+ (sqrt (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))) (* (pow angle 2) (+ (* 1/2 (* (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))))))) (* 1/2 (* (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (+ (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (/ (* (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (+ (* 1/4 (/ (pow (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))) (sqrt (/ 1 (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (* (pow angle 2) (- (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (- (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2)))) (+ (* 1/22216240521216000000000 (/ (pow (PI) 8) (pow y-scale 2))) (+ (* 1/793437161472000000000 (/ (pow (PI) 8) (pow y-scale 2))) (* 1/634749729177600000000 (/ (pow (PI) 8) (pow y-scale 2)))))) (pow y-scale 2))) (+ (* 2 (* (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 4 (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2))))))))) (pow (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) 2)))) (+ (* 1/4 (* (pow y-scale 4) (pow (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))) 2))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ 1 (pow y-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))))) (/ 1 (pow y-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ 1 (pow y-scale 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (+ (* -1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow y-scale 2))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))) (* (pow angle 2) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (+ (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))) (* (pow angle 2) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2)))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (pow x-scale 2)))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* -1/3149280000 (/ (* (pow angle 2) (pow (PI) 4)) (pow x-scale 2))) (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2)))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2))) (* (pow angle 2) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (pow x-scale 2))) (* -1/2777030065152000000000 (/ (pow (PI) 8) (pow x-scale 2))))))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ 1 (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (* (pow angle 2) (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))))) (/ 1 (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))) (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* (pow angle 2) (+ (* 1/2 (* (pow y-scale 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))))) (* (pow angle 2) (+ (* 1/2 (* (pow angle 2) (* (pow y-scale 2) (- (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))) (* 1/2 (* (pow y-scale 4) (* (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2))))))))))) (* 1/2 (* (pow y-scale 2) (- (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))) (* 1/4 (* (pow y-scale 4) (pow (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2))))) 2)))))))))) (/ 1 (pow y-scale 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ 1 (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))))) (/ 1 (pow y-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))))) (/ 1 (pow y-scale 4)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (+ (* 1/8100 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 4 (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))))) (+ (* (pow angle 2) (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (+ (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))) (* 4 (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2))))))))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))))))) (/ 1 (pow y-scale 4)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* 1/32400 (/ (* (pow angle 2) (pow (PI) 2)) (* (pow x-scale 2) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (* (pow angle 2) (+ (* 1/32400 (/ (pow (PI) 2) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/1049760000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (pow (PI) 4) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* 1/2040733440000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/1224440064000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/102036672000000 (/ (pow (PI) 6) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 1/32400 (/ (* (pow (PI) 2) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (* (pow angle 2) (+ (* -1/32400 (/ (* (pow (PI) 2) (+ (* 1/2040733440000000 (pow (PI) 6)) (* 1/1224440064000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/3149280000 (/ (* (pow (PI) 4) (+ (* 1/12597120000 (pow (PI) 4)) (* 1/4199040000 (pow (PI) 4)))) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/396718580736000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* -1/2777030065152000000000 (/ (pow (PI) 8) (* (pow x-scale 2) (pow y-scale 2)))) (* 1/32400 (/ (* (pow (PI) 2) (+ (* -1/816293376000000 (pow (PI) 6)) (* -1/12244400640000000 (pow (PI) 6)))) (* (pow x-scale 2) (pow y-scale 2)))))))))))))))))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ 1 (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (pow y-scale 2))) (/ 1 (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2))))) (/ 1 (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* (pow angle 2) (+ (* -2 (/ (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) (pow y-scale 2))) (* (pow angle 2) (+ (* -2 (/ (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (pow y-scale 2))) (+ (* (pow angle 2) (+ (* -2 (/ (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))) (pow y-scale 2))) (* 2 (* (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))))))) (pow (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2)))) 2)))))) (/ 1 (pow y-scale 4)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ -1 (pow y-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow y-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (pow y-scale 2)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (* (pow angle 2) (- (+ (* 1/32400 (/ (pow (PI) 2) (pow x-scale 2))) (* (pow angle 2) (- (+ (* -1/3149280000 (/ (pow (PI) 4) (pow x-scale 2))) (* (pow angle 2) (- (+ (* 1/2040733440000000 (/ (pow (PI) 6) (pow x-scale 2))) (* 1/1224440064000000 (/ (pow (PI) 6) (pow x-scale 2)))) (+ (* -1/816293376000000 (/ (pow (PI) 6) (pow y-scale 2))) (* -1/12244400640000000 (/ (pow (PI) 6) (pow y-scale 2))))))) (+ (* 1/12597120000 (/ (pow (PI) 4) (pow y-scale 2))) (* 1/4199040000 (/ (pow (PI) 4) (pow y-scale 2))))))) (* -1/32400 (/ (pow (PI) 2) (pow y-scale 2))))) (/ 1 (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 (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* 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))))) (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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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))) (* 1/2 (/ (+ (* -2 (/ (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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 (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 2)))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(hole binary64 (cos (* 1/180 (* angle (PI))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(hole binary64 (pow (cos (* 1/180 (* angle (PI)))) 4)))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) #s(hole binary64 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) #s(hole binary64 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI)))))))
#s(approx (sin (* 1/180 (* angle (PI)))) #s(hole binary64 (sin (* 1/180 (* angle (PI))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) #s(hole binary64 (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) #s(hole binary64 (pow (sin (* 1/180 (* angle (PI)))) 2)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (+ (/ (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)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (/ (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))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (+ (/ (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 (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (sqrt (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) 2)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (pow (- (/ (pow (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 (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) #s(hole binary64 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (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 (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 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 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/16 (* (/ (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (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/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 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 (* x-scale (+ (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (cos (* 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (cos (* 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)))) 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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2))))) (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (- (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* 1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) #s(hole binary64 (/ (- (pow b 2) (* -1 (pow b 2))) (pow x-scale 2))))
#s(approx (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) #s(hole binary64 (/ (- (pow b 2) (* -1 (pow b 2))) (pow x-scale 2))))
#s(approx (* x-scale x-scale) #s(hole binary64 (pow x-scale 2)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* 1/16 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* 1/8 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* b (* y-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* b (* y-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow x-scale 4) #s(hole binary64 (pow x-scale 4)))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* -1/16 (* (/ (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* -1/8 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/16 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* x-scale (+ (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow x-scale 2) (+ (* -1/16 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/8 (* (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/8 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* -1/4 (* (/ (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/2 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* x-scale (+ (* (* a (* y-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (* a (* y-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* a (* (pow x-scale 2) (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow x-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow x-scale 2) (+ (* -1/2 (* (* (pow x-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow x-scale 2) (- (* (pow x-scale 2) (- (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (/ (* (pow x-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 (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (* (pow x-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (* x-scale y-scale) 2) #s(hole binary64 (* (pow x-scale 2) (pow y-scale 2))))
#s(approx (* x-scale y-scale) #s(hole binary64 (* x-scale y-scale)))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow x-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow y-scale 2))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (/ (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4)))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (* -1 (/ (* (pow x-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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (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 (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/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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/8 (* (/ (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2))))) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) (+ (/ (* (pow a 2) (pow (cos (* 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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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))) (- (+ (* (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 (cos (* 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 6)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))) 2) (* (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2) (- (+ (* (pow 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 (cos (* 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 4)) (sqrt (/ 1 (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))))))))) (+ (* -1/16 (* (/ (* y-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow y-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) 2)))))) (* (pow x-scale 2) (+ (/ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)) (/ (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (sqrt (/ 1 (- (+ (* (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 (cos (* 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 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 x-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow x-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow x-scale 2))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow x-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow y-scale 4)) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (* -1 (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow y-scale 2)))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) #s(hole binary64 (* -1/4 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) #s(hole binary64 (* -1 (* (* y-scale (sqrt 8)) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 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 (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (+ (* (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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 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))))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow y-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) x-scale))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* y-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow y-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* y-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 x-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) x-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow y-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow y-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow x-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow y-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow x-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (sqrt 8))) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* -1/16 (* (/ (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* y-scale (+ (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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)))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow 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/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 (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (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/8 (* (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2))))) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 4))) (* 1/4 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* 1/4 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2)))) 2) (* (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (- (+ (/ (* (pow a 2) (pow (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 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) (- (pow (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 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))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))) (sqrt (/ 1 (- (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* 1/16 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* 1/8 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* b (* x-scale (sqrt 8))) (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* b (* x-scale (* (sqrt 8) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* b (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 4)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) #s(hole binary64 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) #s(hole binary64 (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) #s(hole binary64 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) #s(hole binary64 (* 1/2 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) #s(hole binary64 (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))
#s(approx (* y-scale y-scale) #s(hole binary64 (pow y-scale 2)))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) #s(hole binary64 (/ (+ (* -2 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 4 (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* -1/16 (* (/ (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* -1/8 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/16 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* y-scale (+ (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* (pow y-scale 2) (+ (* -1/16 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/8 (* (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/8 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* -1/4 (* (/ (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/2 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* y-scale (+ (* (* a (* x-scale (sqrt 8))) (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (* a (* x-scale (* (sqrt 8) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (* a (* x-scale (* (pow y-scale 2) (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (+ (sqrt (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* (pow y-scale 2) (+ (* -1/4 (* (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (pow y-scale 2) (+ (* -1/2 (* (* (pow y-scale 2) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/2 (* (+ (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (sqrt (/ 1 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* -1/2 (/ (* (pow y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* 1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (- (+ (* (pow y-scale 2) (- (* (pow y-scale 2) (- (* 1/2 (/ (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* -1/4 (/ (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 6))))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) #s(hole binary64 (/ (+ (/ (* (pow y-scale 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 (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* 1/2 (/ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (* (pow y-scale 2) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* 1/2 (/ (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* (pow y-scale 2) (+ (* -1/4 (/ (* (pow y-scale 2) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/2 (/ (- (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (* 1/4 (/ (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (pow (cos (* 1/180 (* angle (PI)))) 4)))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow y-scale 2))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4))))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* -2 (/ (* (pow y-scale 2) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (pow x-scale 2))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (/ (+ (* (pow y-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (/ (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 4)) (pow x-scale 4)))) (pow (cos (* 1/180 (* angle (PI)))) 4)) (pow y-scale 4))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (/ (- (/ (* (pow y-scale 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 (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) #s(hole binary64 (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (* (sqrt 8) (+ (* -1/2 (/ (+ (* -1/4 (/ (* (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) 4))) (* 1/4 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (/ (* (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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))) (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -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/16 (/ (pow (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 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 (+ (/ (* (pow a 2) (pow (sin (* 1/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 (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (+ (* -1/16 (* (/ (* x-scale (* (sqrt 8) (- (pow (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) 2) (* 1/4 (/ (pow (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) 2) (pow (+ (/ (* (pow a 2) (pow (sin (* 1/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 2) (+ (/ (* (pow a 2) (pow (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 (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))))))))) (* 1/4 (* (* x-scale (sqrt 8)) (sqrt (- (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (+ (* -2 (* (+ (* (pow a 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* (pow b 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (pow (- (pow b 2) (pow a 2)) 2))) (pow x-scale 2)))) (+ (/ (* (pow a 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)) (/ (* (pow b 2) (pow (cos (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (cos (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* (/ 1 y-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* -1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (pow y-scale 2))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) #s(hole binary64 (/ (- (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (pow y-scale 2))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) #s(hole binary64 (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow y-scale 6) (pow (sin (* 1/180 (* angle (PI)))) 6)))) (+ (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (+ (* 1/2 (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 4) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (pow x-scale 2)))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (+ (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) #s(hole binary64 (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (* (pow x-scale 2) (pow y-scale 2)))) (/ (pow (sin (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) #s(hole binary64 (+ (* -1 (/ (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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/8 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/16 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/4 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* b (* x-scale (sqrt 8))) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* b (* (pow x-scale 3) (* (sqrt 8) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* b (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (pow (cos (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (* (pow (cos (* 1/180 (* angle (PI)))) 2) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))))) (pow (cos (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (cos (* 1/180 (* angle (PI)))) 4) (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (sin (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (cos (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (cos (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (sin (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (cos (* 1/180 (* angle (PI)))) 2))))))))))) y-scale))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) #s(hole binary64 (+ (* -1/4 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/16 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/8 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (* 1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) #s(hole binary64 (+ (* -1 (* (* a (* x-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (+ (* 1/4 (* (/ (* a (* (pow x-scale 3) (* (sqrt 8) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* 1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* 1/2 (* (/ (* a (* x-scale (* (sqrt 8) (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (* (/ 1 y-scale) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))))) y-scale))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) #s(hole binary64 (* -1 (/ (+ (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+ (* -1/2 (* (/ (+ (* -1/2 (/ (* (pow x-scale 2) (+ (* -1/4 (/ (* (pow x-scale 8) (* (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 8))) (* 1/4 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (* 1/4 (/ (* (pow x-scale 2) (* (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (* (pow (sin (* 1/180 (* angle (PI)))) 2) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 6)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (+ (* -1/2 (* (/ (+ (* -1/4 (/ (* (pow x-scale 6) (* (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))))) (pow (sin (* 1/180 (* angle (PI)))) 6))) (* 1/16 (/ (* (pow x-scale 4) (pow (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4)))) 2)) (* (pow (sin (* 1/180 (* angle (PI)))) 4) (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (pow y-scale 4)) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))))) (* -1/4 (* (/ (* (pow x-scale 2) (- (pow (cos (* 1/180 (* angle (PI)))) 4) (* 1/4 (/ (* (pow x-scale 4) (pow (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2)))) 2)) (pow (sin (* 1/180 (* angle (PI)))) 4))))) (* (pow y-scale 2) (pow (sin (* 1/180 (* angle (PI)))) 2))) (sqrt (/ 1 (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (pow x-scale 2) (+ (* -2 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (sin (* 1/180 (* angle (PI)))) 2)) (pow x-scale 2))))) (pow (sin (* 1/180 (* angle (PI)))) 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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))
#s(literal 1/4 binary64)
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))))
(.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
x-scale
(*.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))
(*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))
#s(literal 2 binary64)
(*.f64 (neg.f64 (/.f64 b x-scale)) (neg.f64 (/.f64 b x-scale)))
(*.f64 (fabs.f64 (/.f64 b x-scale)) (fabs.f64 (/.f64 b x-scale)))
(*.f64 (/.f64 b x-scale) (/.f64 b x-scale))
(pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))
(/.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 x-scale))
(/.f64 b x-scale)
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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))))))
(.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))))
(pow.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))
(/.f64 (neg.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b)))) (neg.f64 (.f64 x-scale x-scale)))
(/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale))
(-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 #s(literal -1 binary64) (.f64 b b)) (*.f64 x-scale x-scale)))
(-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (*.f64 b b)))
(*.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 #s(literal -1 binary64) (.f64 b b))
#s(literal -1 binary64)
(*.f64 (neg.f64 x-scale) (neg.f64 x-scale))
(*.f64 (fabs.f64 x-scale) (fabs.f64 x-scale))
(*.f64 x-scale x-scale)
(pow.f64 x-scale #s(literal 2 binary64))
(exp.f64 (*.f64 (log.f64 x-scale) #s(literal 2 binary64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))
#s(literal -1/4 binary64)
(.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))
(.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
(pow.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
(-.f64 #s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
(/.f64 (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 x-scale x-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
(sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
(cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))
#s(literal 1/180 binary64)
(*.f64 angle (PI.f64))
angle
(PI.f64)
(pow.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))) #s(literal 1/2 binary64))
(sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (neg.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (neg.f64 (pow.f64 x-scale #s(literal 4 binary64))))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))
(pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))
(exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64)))
#s(literal 4 binary64)
(pow.f64 x-scale #s(literal 4 binary64))
(exp.f64 (*.f64 (log.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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
(.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
(.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
(pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
(-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
(.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(literal 1/2 binary64)
(/.f64 (neg.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (neg.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
(/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
(*.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 (+.f64 (pow.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 3 binary64)) (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 3 binary64))) (fma.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))))
(fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
(+.f64 (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(literal -2 binary64)
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (.f64 y-scale y-scale)))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))
(.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
(.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))
(pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) #s(literal 2 binary64)))
(.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
(.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))))
(pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
(.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
(.f64 a (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))
a
(pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
(/.f64 (+.f64 (pow.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(literal 3 binary64)) (pow.f64 (/.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 3 binary64))) (fma.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (-.f64 (.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))))
(/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 (.f64 y-scale y-scale) (*.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 y-scale y-scale)) (/.f64 (pow.f64 (sin.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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (neg.f64 (*.f64 y-scale y-scale)))
(/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))
(/.f64 (neg.f64 (pow.f64 (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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))
(pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal 1/2 binary64))
(sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
(/.f64 (+.f64 (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
(fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))
(+.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))
(.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
(/.f64 (neg.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (neg.f64 (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
(/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(.f64 (.f64 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 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))
(exp.f64 (.f64 (log.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))
(/.f64 (-.f64 (.f64 (pow.f64 (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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))
(-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.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))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 a a) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 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 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 a a) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 a a) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 a a) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (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/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 a a) (-.f64 (fma.f64 (.f64 a a) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* a (* x-scale (* y-scale (sqrt 8)))) (.f64 a (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))))
#s(approx 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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 a (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 a (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 a a)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #s(literal 4 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b b) (pow.f64 a #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 a a)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 a #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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 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/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 a (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 a #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 a #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (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 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 a a)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.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 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 (.f64 b b) (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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.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 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.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/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 b b) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 4 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 b b) (-.f64 (fma.f64 (.f64 b b) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (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)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale))))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 4 binary64)))))) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))
#s(approx (* 2 (* (/ b x-scale) (/ b x-scale))) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))
#s(approx (* (/ b x-scale) (/ b x-scale)) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))
#s(approx (/ b x-scale) (/.f64 b x-scale))
#s(approx b b)
#s(approx (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (*.f64 #s(literal 2 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))
#s(approx (- (* b b) (* -1 (* b b))) (.f64 #s(literal 2 binary64) (.f64 b b)))
#s(approx (* b b) (*.f64 b b))
#s(approx (* -1 (* b b)) (.f64 #s(literal -1 binary64) (.f64 b b)))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))
#s(approx (* b (* x-scale (* y-scale (sqrt 8)))) (.f64 b (.f64 x-scale (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* b (* y-scale (sqrt 8))) (.f64 b (.f64 y-scale (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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 b (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (*.f64 b b)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #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 x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 b b) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a a) (pow.f64 b #s(literal 6 binary64))) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (+.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b x-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 b b)) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 b #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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ 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 (.f64 (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))) (sqrt.f64 (pow.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) #s(literal -3 binary64))))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (.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)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #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/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 b (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 b #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal 1/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)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (pow.f64 b #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/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 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 (.f64 a a) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (.f64 (.f64 a a) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (.f64 b b)) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal 1/4 binary64) (.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))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.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))) (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 a) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.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 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (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 a (.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 x-scale a) (/.f64 (.f64 (.f64 y-scale 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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.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 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (+.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))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (.f64 a a)) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.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)) (+.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 #s(literal 1/4 binary64) (/.f64 (pow.f64 (.f64 y-scale (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))) #s(literal 2 binary64)) (.f64 (.f64 a a) #s(literal 2 binary64))) (.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 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 b b) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 a a) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 y-scale y-scale))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.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 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) #s(literal 2 binary64)) (pow.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))) #s(literal 2 binary64))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))))))) (sqrt.f64 #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (fma.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #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/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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (+.f64 (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.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)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 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)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))) (.f64 #s(literal 1/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/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))))))))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))) (*.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (fma.f64 (.f64 angle angle) (-.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (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 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.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 x-scale x-scale)))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64)))) (.f64 x-scale x-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)))) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (fma.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a)))) (.f64 (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 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (.f64 a a)))))) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.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/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64))))) (.f64 x-scale x-scale)) (/.f64 (fma.f64 (.f64 a a) (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 (.f64 b b) (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 x-scale x-scale))) (.f64 a a)) (.f64 #s(literal 4 binary64) (/.f64 (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (-.f64 (.f64 b b) (.f64 a a)) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (.f64 a a)))) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (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))))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64)))))) (.f64 a a))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (/.f64 (fma.f64 (.f64 a a) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)))) (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)))))) (.f64 x-scale x-scale)) (.f64 a a)) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))) (.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 b b) (fma.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64))))) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))))))) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (pow.f64 (/.f64 b x-scale) #s(literal 2 binary64)))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/11108120260608000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/317374864588800000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal -1/198359290368000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/1388515032576000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 x-scale x-scale)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 y-scale y-scale))))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/64800 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 #s(literal 1/25194240000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (cos (* 1/180 (* angle (PI)))) (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/64800 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/24488801280000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 6 binary64))) (.f64 #s(literal 1/25194240000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))
#s(approx (* 1/180 (* angle (PI))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (* angle (PI)) (*.f64 angle (PI.f64)))
#s(approx angle angle)
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (fma.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (pow.f64 x-scale #s(literal -2 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (fma.f64 #s(literal 1/1020366720000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/612220032000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/1574640000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (pow.f64 x-scale #s(literal -4 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (pow.f64 (*.f64 angle (PI.f64)) #s(literal 2 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (*.f64 #s(literal 1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/6298560000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/2099520000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal 1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 x-scale #s(literal 4 binary64))) (fma.f64 #s(literal -1/408146688000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal -1/6122200320000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))))))) (pow.f64 x-scale #s(literal -4 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) #s(literal 1 binary64))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/16200 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 1 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/6298560000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (+.f64 #s(literal 1 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/6298560000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/2099520000 binary64) (pow.f64 (PI.f64) #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/16200 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)) (*.f64 #s(literal -1/6122200320000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))))))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) (-.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/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.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)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) (-.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/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.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/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.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)))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.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)))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) (-.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/4 binary64) (/.f64 (pow.f64 (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))) #s(literal 2 binary64)) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (-.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 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 (+.f64 #s(literal 1 binary64) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (-.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 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (fma.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (fma.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (PI.f64) (PI.f64)))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))) (fma.f64 #s(literal -1/97200 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 1049760000 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)))))) (pow.f64 (PI.f64) #s(literal 4 binary64)))))))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (fma.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (*.f64 y-scale y-scale))))))))))))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale))))))))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (*.f64 y-scale y-scale)))))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))))))))))))))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/102036672000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal 1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/4534963200000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (fma.f64 #s(literal 1/2267481600000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/881596846080000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/1469328076800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (fma.f64 #s(literal -1/4407984230400000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)) (.f64 #s(literal -1/30855889612800000000 binary64) (pow.f64 (PI.f64) #s(literal 7 binary64)))))))))))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal -1/34992000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 3 binary64))) (.f64 #s(literal 1/180 binary64) (PI.f64)))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal 1/22674816000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 5 binary64)))))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/30855889612800000000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 7 binary64))) (.f64 #s(literal 1/22674816000000 binary64) (pow.f64 (PI.f64) #s(literal 5 binary64))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 (.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)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (.f64 y-scale y-scale)))))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (.f64 y-scale y-scale))))))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))))))))
#s(approx (pow (sin (* 1/180 (* angle (PI)))) 2) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (.f64 (PI.f64) (PI.f64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (fma.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 #s(literal -1/2777030065152000000000 binary64) (pow.f64 (PI.f64) #s(literal 8 binary64)))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 angle (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 angle (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 angle (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 angle (fma.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 a (.f64 (.f64 angle angle) (.f64 x-scale (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (+.f64 (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))))))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (fma.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))) #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal 1/22216240521216000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/793437161472000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/634749729177600000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 y-scale y-scale)))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)))))) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) #s(literal 2 binary64))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (pow.f64 y-scale #s(literal -2 binary64)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (*.f64 y-scale y-scale)))))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (*.f64 x-scale x-scale))))))))))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (pow.f64 y-scale #s(literal -2 binary64)))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (.f64 angle angle) (pow.f64 (PI.f64) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale))))))))))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (.f64 x-scale x-scale)))))))))))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 y-scale #s(literal -2 binary64)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2 binary64) (.f64 (.f64 angle angle) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) #s(literal 2 binary64)))))))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 y-scale #s(literal -4 binary64)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 y-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64))))))) (pow.f64 y-scale #s(literal -4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)))))))) (pow.f64 y-scale #s(literal -4 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/102036672000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal 1/2040733440000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal 1/1224440064000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (fma.f64 #s(literal 1/12597120000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 #s(literal 1/4199040000 binary64) (pow.f64 (PI.f64) #s(literal 4 binary64))))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/396718580736000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2777030065152000000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 8 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/816293376000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 #s(literal -1/12244400640000000 binary64) (pow.f64 (PI.f64) #s(literal 6 binary64))))) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (pow.f64 y-scale #s(literal -4 binary64)))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 y-scale y-scale)) (pow.f64 y-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))))) (pow.f64 y-scale #s(literal -4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))) (.f64 y-scale y-scale)) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))) (pow.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))) #s(literal 2 binary64)))))) (pow.f64 y-scale #s(literal -4 binary64))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 #s(literal -1 binary64) (*.f64 y-scale y-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (pow.f64 y-scale #s(literal -2 binary64))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (-.f64 (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal 1/2040733440000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/1224440064000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/816293376000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/12244400640000000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 6 binary64)) (.f64 y-scale y-scale))))))) (fma.f64 #s(literal 1/12597120000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/4199040000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale))))) (pow.f64 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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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))))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))
#s(approx (cos (* 1/180 (* angle (PI)))) (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (/ (pow (cos (* 1/180 (* angle (PI)))) 4) (pow x-scale 4)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (cos (* 1/180 (* angle (PI)))) 4) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))
#s(approx (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))
#s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))))
#s(approx (sin (* 1/180 (* angle (PI)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))
#s(approx (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(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 (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* 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 y-scale y-scale)) (/.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 (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))
#s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2)) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 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/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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 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 (pow.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)))) #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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #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 (/.f64 (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.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 (pow.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)))) #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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))
#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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))
#s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 x-scale x-scale)))
#s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))
#s(approx (/ (- (* b b) (* -1 (* b b))) (* x-scale x-scale)) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (.f64 x-scale x-scale)))
#s(approx (* x-scale x-scale) (*.f64 x-scale x-scale))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow x-scale 4) (pow.f64 x-scale #s(literal 4 binary64)))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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 a (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 x-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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/16 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 a (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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 a (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (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 -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 x-scale x-scale) (-.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (* x-scale y-scale) 2) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64)))
#s(approx (* x-scale y-scale) (*.f64 x-scale y-scale))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale)))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64)))))) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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))) (/.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 (pow.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)))) #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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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/16 binary64) (.f64 (.f64 (/.f64 y-scale (.f64 x-scale x-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 x-scale x-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 6 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 x-scale x-scale)))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64)))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (.f64 #s(literal -1 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 (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) x-scale)))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 y-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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 a (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) x-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 x-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.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)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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/8 binary64) (.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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/8 binary64) (.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64)))))) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.f64 (-.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) #s(literal 2 binary64))))) #s(literal 2 binary64)) (.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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 (-.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 (pow.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)))) #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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 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)))))))))))))))))
#s(approx (* y-scale (sqrt 8)) (*.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))
#s(approx y-scale y-scale)
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 b (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (* 1/4 (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* y-scale (sqrt 8))) (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))
#s(approx (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))
#s(approx (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64)))))
#s(approx (* y-scale y-scale) (*.f64 y-scale y-scale))
#s(approx (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (/.f64 (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))) (.f64 y-scale y-scale)))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 a (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 y-scale (fma.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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/16 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/8 binary64) (.f64 (.f64 a (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 a (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 y-scale (fma.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (.f64 a (.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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (+.f64 (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.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) (fma.f64 #s(literal -1/2 binary64) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (fma.f64 (.f64 y-scale y-scale) (-.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))
#s(approx (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (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 (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (/.f64 (fma.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 y-scale y-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 x-scale #s(literal 4 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 4 binary64))) (pow.f64 y-scale #s(literal 4 binary64))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (-.f64 (/.f64 (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))) (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 -1/4 binary64) (/.f64 (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 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 (pow.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)))) #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 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.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 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.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 (pow.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)))) #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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (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 (pow.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)))) #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 (pow.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)))) #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/16 binary64) (/.f64 (pow.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 (pow.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)))) #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))))) #s(literal 2 binary64)) (.f64 (pow.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) #s(literal 2 binary64)) (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (.f64 (/.f64 x-scale (.f64 y-scale y-scale)) (/.f64 (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))) (*.f64 y-scale y-scale)))
#s(approx (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (/.f64 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 6 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64)))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))) (.f64 y-scale y-scale)))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))
#s(approx (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 6 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))
#s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))
#s(approx (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64)))))
#s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (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 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/8 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (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)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 b (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale)))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/8 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))) (fma.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 a (.f64 (pow.f64 x-scale #s(literal 3 binary64)) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (/.f64 (.f64 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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 a (.f64 x-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))) y-scale)))
#s(approx (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 8 binary64)) (.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 8 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 #s(literal 1/4 binary64) (.f64 (/.f64 (.f64 x-scale x-scale) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 6 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (/.f64 (fma.f64 #s(literal -1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 6 binary64)) (.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 6 binary64))) (.f64 #s(literal 1/16 binary64) (.f64 (/.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (/.f64 (pow.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))) #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))) (pow.f64 y-scale #s(literal 4 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 x-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 y-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))) y-scale)))

eval1.6s (3.9%)

Memory: 17.1MiB live, 2 288.5MiB allocated; 375ms collecting garbage
Compiler: Compiled 534 539 to 9 595 computations (98.2% saved)

prune2.1s (5.4%)

Memory

36.9MiB live, 3 712.0MiB allocated; 414ms collecting garbage

Pruning

86 alts after pruning (82 fresh and 4 done)

	Pruned	Kept	Total
New	903	41	944
Fresh	6	41	47
Picked	3	2	5
Done	0	2	2
Total	912	86	998

Accuracy

51.1%

Counts

998 → 86

Alt Table

Click to see full alt table

Status	Accuracy	Program
	0.6%	(/.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 #s(approx (+ (pow ( a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 a a)) 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.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 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.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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 y-scale y-scale)))))))))
	6.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)))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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(approx (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (.f64 b b)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))
	6.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)))) (sqrt.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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))))))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
	6.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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	7.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 x-scale x-scale)))))))
	15.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
	15.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))))))))))))
	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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) #s(literal 1 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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 #s(approx (cos ( 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	8.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))))))))))
	12.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale x-scale))))))))))))))
	15.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (exp.f64 (.f64 (log.f64 x-scale) #s(literal 2 binary64))))))))))
	16.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 #s(approx (- (* b b) (* -1 (* b b))) (.f64 #s(literal 2 binary64) (.f64 b b))) (*.f64 x-scale x-scale))))))))
✓	23.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
	11.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	16.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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	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 (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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)))))))))
	3.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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))))) #s(literal 2 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) (.f64 (.f64 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 #s(approx (- (/ (pow (sin ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(literal 2 binary64)))))))))
	4.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 y-scale #s(literal -4 binary64)))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.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 (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 y-scale #s(literal -2 binary64))))))))
	8.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.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 (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
	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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) #s(literal 1 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (pow.f64 y-scale #s(literal -2 binary64))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	1.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
	12.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
✓	34.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 a (*.f64 x-scale #s(literal 4 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) #s(approx ( (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
	11.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 ( (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 angle (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	0.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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 (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.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 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
	2.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64))))))))
	2.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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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))))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64)))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	8.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (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 x-scale x-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	0.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))))))))
	8.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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	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))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (exp.f64 (*.f64 (log.f64 x-scale) #s(literal 4 binary64)))))))))))
	7.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
	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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
	7.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 x-scale) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	1.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	7.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	8.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 #s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
	16.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	0.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))))
	8.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
	2.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
	3.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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	8.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
	1.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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
	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))) #s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
	15.2%	#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	11.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))) #s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #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))) #s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
✓	34.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))) #s(approx (* 1/4 (* a (* x-scale 4))) (*.f64 a x-scale)))
	4.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(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	5.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 #s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	3.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	2.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) #s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	5.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	3.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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 #s(approx (pow ( (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) #s(approx (+ ( -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	19.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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(approx ( (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	5.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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (/ ( (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 y-scale y-scale)))))))))))))))))
	5.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
	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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.f64 (PI.f64) (PI.f64)))))))))))
	0.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))))))))))))
	9.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))

Compiler

Compiled 75 558 to 11 245 computations (85.1% saved)

regimes330.0ms (0.8%)

Memory

10.4MiB live, 382.7MiB allocated; 34ms collecting garbage

Counts

134 → 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 (* a (* x-scale 4))) (*.f64 a x-scale)))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-scale) y-scale) 2))))))) (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (.f64 #s(literal 1/4 binary64) (.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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 #s(approx (- (* b b) (* -1 (* b b))) (.f64 #s(literal 2 binary64) (.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (.f64 #s(literal 2 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (.f64 (/.f64 b x-scale) (/.f64 b x-scale)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)))) (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (*.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.f64 (.f64 a a) #s(approx (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.f64 x-scale 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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) #s(approx (- (/ (* b b) (* x-scale x-scale)) (* -1 (/ (* b b) (* x-scale x-scale)))) (/.f64 (-.f64 (.f64 b b) (.f64 #s(literal -1 binary64) (.f64 b b))) (exp.f64 (.f64 (log.f64 x-scale) #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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (.f64 #s(literal -1 binary64) (/.f64 (.f64 b b) (exp.f64 (*.f64 (log.f64 x-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 ( (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 angle (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (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 a (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale))) (.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (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 #s(literal 2 binary64) (/.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-scale #s(literal -2 binary64))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 #s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
(/.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 (pow.f64 a #s(literal 3 binary64)) (.f64 (.f64 b b) #s(literal 4 binary64))) (.f64 x-scale (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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 angle (.f64 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))))) (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 angle (sqrt.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 x-scale x-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 x-scale x-scale) (-.f64 (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 x-scale #s(literal 4 binary64))) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))))) (.f64 #s(literal 1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (pow.f64 (*.f64 x-scale y-scale) #s(literal 2 binary64))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))) (.f64 #s(literal -1 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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (fma.f64 (.f64 angle angle) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))) (pow.f64 x-scale #s(literal -2 binary64)))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) #s(approx (+ ( -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)))) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))))) (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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.f64 x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.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 (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (pow.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.f64 x-scale #s(literal -4 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (pow.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) #s(literal 4 binary64)) (pow.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (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 x-scale x-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (exp.f64 (.f64 (log.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (exp.f64 (*.f64 (log.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(approx (sqrt (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.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 (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (.f64 (log.f64 x-scale) #s(literal 2 binary64))))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (+.f64 (/.f64 (pow.f64 (.f64 y-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (- (pow (cos (* 1/180 (* angle (PI)))) 2) (* 1/2 (/ (* (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2))))) (+.f64 (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal -1/32400 binary64) (.f64 (PI.f64) (PI.f64))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 #s(literal 1 binary64) (.f64 #s(literal 16200 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.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)))) (sqrt.f64 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* x-scale x-scale)))) (pow (cos (* 1/180 (* angle (PI)))) 2)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 (.f64 angle angle) (-.f64 (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 x-scale x-scale)))))) (.f64 #s(literal -1/32400 binary64) (.f64 (.f64 (PI.f64) (PI.f64)) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.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 (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 #s(approx (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) #s(approx (/ ( (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (pow (sin (* 1/180 (* angle (PI)))) 2)) (fma.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale))))) (.f64 (PI.f64) (PI.f64))) (.f64 (.f64 angle angle) (-.f64 (.f64 #s(literal 32400 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))) (.f64 (PI.f64) (PI.f64)))) (.f64 #s(literal -1/3 binary64) (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -1/16200 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/8100 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (*.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(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) #s(approx ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 #s(approx (pow ( (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (.f64 #s(literal 1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64)))) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 #s(approx (pow (cos (* 1/180 (* angle (PI)))) 2) #s(literal 1 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) #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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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))))) (sqrt.f64 #s(approx (+ ( 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 x-scale #s(literal 4 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(approx (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 a b) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 #s(approx (cos (* 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 #s(approx (sin (* 1/180 (* angle (PI)))) (.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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 #s(approx (cos ( 1/180 (* angle (PI)))) #s(literal 1 binary64)) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/32400 binary64) (pow.f64 (.f64 angle (PI.f64)) #s(literal 2 binary64))))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) #s(approx (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (.f64 (PI.f64) (PI.f64)) (.f64 y-scale y-scale)) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/1049760000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal -1/3149280000 binary64) (/.f64 (pow.f64 (PI.f64) #s(literal 4 binary64)) (.f64 y-scale y-scale))))))))))) (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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(approx ( (* y-scale y-scale) (+ (* -2 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))) (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (* y-scale y-scale))))) (fma.f64 #s(literal -2 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 #s(literal 4 binary64) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (pow.f64 x-scale #s(literal -2 binary64))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (pow.f64 y-scale #s(literal -2 binary64))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (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))) #s(approx (* 1/4 (* (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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) #s(approx ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 x-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* a (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 (.f64 a (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 #s(approx (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) (.f64 angle (fma.f64 #s(literal 1/180 binary64) (PI.f64) (.f64 (.f64 angle angle) (fma.f64 #s(literal -1/11664000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)) (.f64 #s(literal -1/34992000 binary64) (pow.f64 (PI.f64) #s(literal 3 binary64)))))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 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 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 #s(approx (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (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 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) #s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 a (sqrt.f64 (-.f64 (/.f64 (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/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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)))) #s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 b (sqrt.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (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 #s(approx (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (sin.f64 (fma.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
(/.f64 (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 #s(approx (+ (pow ( a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) (.f64 a a)) 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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (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))) #s(approx (* -1/4 (* (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (exp.f64 (.f64 (log.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))))) (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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 y-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 x-scale x-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* y-scale y-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 #s(approx (pow (cos ( 1/180 (* angle (PI)))) 2) #s(literal 1 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (-.f64 (/.f64 (pow.f64 (.f64 a (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 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-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 x-scale x-scale)))) (pow.f64 (.f64 a (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 angle angle) a) (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (fma.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal 1/8100 binary64) (/.f64 (pow.f64 (.f64 (PI.f64) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 x-scale x-scale)))) (fma.f64 #s(literal -1/32400 binary64) (/.f64 (pow.f64 (.f64 a (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/32400 binary64) (/.f64 (pow.f64 (.f64 b (PI.f64)) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale)))))) (-.f64 (/.f64 (.f64 b b) (.f64 x-scale x-scale)) (/.f64 (.f64 a a) (.f64 y-scale y-scale))))))))) (sqrt.f64 #s(literal 2 binary64)))) (.f64 #s(literal 1/4 binary64) (.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 #s(approx (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.f64 (.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 #s(approx (- (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-scale))) #s(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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 #s(approx (- (/ (pow (sin ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 (.f64 x-scale (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (*.f64 x-scale x-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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) (sqrt.f64 (-.f64 (/.f64 (fma.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.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 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (exp.f64 (*.f64 (log.f64 y-scale) #s(literal 2 binary64))))) #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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (cos.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))))) #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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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(approx (+ (pow ( a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (.f64 b b)) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (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 (+.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.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 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 b #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))))))))) (/.f64 (.f64 #s(literal 4 binary64) (.f64 (.f64 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))) #s(approx (* 1/4 (* (* x-scale (* y-scale (sqrt 8))) (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))))) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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)))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))))) (/.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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 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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #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 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.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 #s(literal 4 binary64) (/.f64 (pow.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)))) #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)) (.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))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale 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 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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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)))) #s(approx (sqrt (- (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)) (* 1/2 (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)))))) (.f64 (pow.f64 x-scale #s(literal -1 binary64)) (sqrt.f64 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 4 binary64) (pow.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)))) #s(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))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 x-scale x-scale)))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (*.f64 x-scale x-scale)))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (-.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 (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 x-scale y-scale)) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #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 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)))))))))) (/.f64 (.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 #s(literal 8 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (.f64 (pow.f64 b #s(literal 4 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 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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)))))))) (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 (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))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale)) (.f64 #s(literal 1/2 binary64) #s(approx (/ (+ (* -2 (* (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2)) (/ (+ (pow (* a (sin (* 1/180 (* angle (PI))))) 2) (pow (* b (cos (* 1/180 (* angle (PI))))) 2)) (* x-scale x-scale)))) (* 4 (/ (* (pow (cos (* 1/180 (* angle (PI)))) 2) (pow (* (sin (* 1/180 (* angle (PI)))) (- (* b b) (* a a))) 2)) (* x-scale x-scale)))) (+ (pow (* a (cos (* 1/180 (* angle (PI))))) 2) (pow (* b (sin (* 1/180 (* angle (PI))))) 2))) (.f64 (.f64 a a) (-.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 a x-scale) #s(literal 2 binary64))) (fma.f64 #s(literal -2 binary64) (/.f64 (+.f64 (/.f64 (.f64 (.f64 b b) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale)) (/.f64 (.f64 (.f64 b b) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))) (.f64 x-scale x-scale))) (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) (/.f64 (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 4 binary64) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (/.f64 (.f64 (.f64 b b) (.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)))))) (.f64 (.f64 a a) (pow.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 b (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))))) #s(approx (sqrt (- (+ (/ (pow (cos ( 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2))))) (/.f64 (+.f64 (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))) (.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 (.f64 y-scale y-scale) (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (.f64 (pow.f64 y-scale #s(literal 4 binary64)) (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)))))) (pow.f64 (.f64 x-scale (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (/.f64 (.f64 (.f64 y-scale y-scale) (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))))) (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))))) x-scale)))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (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 ( (* b (* x-scale (* y-scale (sqrt 8)))) (sqrt (- (+ (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) (sqrt (+ (* 4 (/ (pow (* (cos (* 1/180 (* angle (PI)))) (sin (* 1/180 (* angle (PI))))) 2) (pow (* x-scale y-scale) 2))) (pow (- (/ (pow (cos (* 1/180 (* angle (PI)))) 2) (* x-scale x-scale)) (/ (pow (sin (* 1/180 (* angle (PI)))) 2) (* y-scale y-scale))) 2)))))) (.f64 x-scale (fma.f64 #s(literal -1/4 binary64) (.f64 (/.f64 (.f64 b (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 binary64)) (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64)) (pow.f64 y-scale #s(literal 4 binary64))) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) #s(literal 2 binary64)) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 4 binary64))))))))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)))))))) (.f64 (.f64 b (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 180) (PI)))) (cos (* (/ angle 180) (PI)))) x-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 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (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 (pow.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) #s(literal 3 binary64)) (pow.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.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 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (-.f64 (.f64 (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #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 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64))) (.f64 (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64)))) (pow.f64 (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ 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)) (-.f64 (+.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (.f64 (fma.f64 #s(literal -8 binary64) (/.f64 (.f64 (.f64 a a) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (.f64 #s(literal 2 binary64) (.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (-.f64 (/.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))))))) (/.f64 #s(literal 1 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (.f64 y-scale (sqrt.f64 #s(literal 8 binary64)))) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale))) (sqrt.f64 (fma.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 a #s(literal 4 binary64)) (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (pow.f64 (.f64 x-scale y-scale) #s(literal 2 binary64))) (pow.f64 (-.f64 (/.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 x-scale x-scale)) (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (*.f64 y-scale y-scale))) #s(literal 2 binary64))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.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)))) #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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) #s(literal 2 binary64)) (.f64 #s(literal 1/4 binary64) (/.f64 (pow.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.f64 (.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.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 binary64) (sqrt.f64 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 (-.f64 (+.f64 (/.f64 (pow.f64 (.f64 a (cos.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 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale))) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (+.f64 (/.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)) (/.f64 (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (.f64 #s(literal 4 binary64) (/.f64 (pow.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)))) #s(literal 2 binary64)) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 x-scale (fma.f64 #s(literal -1/16 binary64) (.f64 (/.f64 (.f64 (.f64 x-scale x-scale) (.f64 y-scale (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))) (.f64 #s(literal 1/4 binary64) (.f64 (.f64 y-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.f64 (-.f64 (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale)) (.f64 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 y-scale y-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) (-.f64 (.f64 b b) (.f64 a a))) #s(literal 2 binary64))) (.f64 y-scale y-scale)))) (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (*.f64 angle (PI.f64))))) #s(literal 2 binary64))))))))))))
#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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/16 binary64) (.f64 (/.f64 (.f64 x-scale (.f64 (.f64 y-scale y-scale) (.f64 (sqrt.f64 #s(literal 8 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 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(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 binary64) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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 #s(literal 1/4 binary64) (.f64 (.f64 x-scale (sqrt.f64 #s(literal 8 binary64))) (sqrt.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 #s(literal 1/2 binary64) (/.f64 (fma.f64 #s(literal -2 binary64) (.f64 (+.f64 (pow.f64 (.f64 a (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (/.f64 (+.f64 (pow.f64 (.f64 a (sin.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64)) (pow.f64 (.f64 b (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64))))) #s(literal 2 binary64))) (.f64 x-scale x-scale))) (.f64 #s(literal 4 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 (.f64 #s(literal 1/180 binary64) (.f64 angle (PI.f64)))) #s(literal 2 binary64)) (pow.f64 (.f64 (sin.f64 (.f64 #s(literal 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))))))))))))

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

#s(approx (/ (neg (sqrt (* (* (* 2 (/ (* 4 (* (* b a) (* b (neg a)))) (pow (* x-scale y-scale) 2))) (* (* b a) (* b (neg a)))) (- (+ (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) (sqrt (+ (pow (- (/ (/ (+ (pow (* a (sin (* (/ angle 180) (PI)))) 2) (pow (* b (cos (* (/ angle 180) (PI)))) 2)) x-scale) x-scale) (/ (/ (+ (pow (* a (cos (* (/ angle 180) (PI)))) 2) (pow (* b (sin (* (/ angle 180) (PI)))) 2)) y-scale) y-scale)) 2) (pow (/ (/ (* (* (* 2 (- (pow b 2) (pow a 2))) (sin (* (/ angle 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 (* a (* x-scale 4))) (*.f64 a x-scale)))

Calls

8 calls:

50.0ms	(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
39.0ms	(/.f64 angle #s(literal 180 binary64))
38.0ms	angle
36.0ms	b
36.0ms	x-scale

Results

Accuracy	Segments	Branch
37.2%	2	`(/.f64 angle #s(literal 180 binary64))`
37.2%	2	`(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))`
34.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))))
39.7%	2	`a`
39.7%	2	`b`
37.2%	2	`angle`
38.5%	2	`x-scale`
44.1%	2	`y-scale`

Compiler

Compiled 196 to 97 computations (50.5% saved)

regimes8.0ms (0%)

Memory

-30.5MiB live, 16.6MiB allocated; 2ms collecting garbage

Counts

3 → 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 (* a (* x-scale 4))) (*.f64 a x-scale)))

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

Calls

4 calls:

2.0ms	a
2.0ms	y-scale
1.0ms	x-scale
1.0ms	b

Results

Accuracy	Segments	Branch
34.9%	1	`x-scale`
34.9%	1	`b`
37.8%	2	`a`
38.0%	2	`y-scale`

Compiler

Compiled 4 to 20 computations (-400% saved)

regimes7.0ms (0%)

Memory

16.9MiB live, 16.9MiB allocated; 0ms collecting garbage

Accuracy

Total -0.0b remaining (-0%)

Threshold costs -0b (-0%)

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 (* a (* x-scale 4))) (*.f64 a x-scale)))

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

Calls

5 calls:

1.0ms	angle
1.0ms	(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))
1.0ms	(/.f64 angle #s(literal 180 binary64))
1.0ms	a
1.0ms	y-scale

Results

Accuracy	Segments	Branch
34.9%	1	`(/.f64 angle #s(literal 180 binary64))`
34.9%	1	`(*.f64 (/.f64 angle #s(literal 180 binary64)) (PI.f64))`
34.9%	1	`angle`
34.9%	1	`a`
34.9%	1	`y-scale`

Compiler

Compiled 11 to 31 computations (-181.8% saved)

bsearch136.0ms (0.3%)

Memory

-7.8MiB live, 141.8MiB allocated; 23ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
124.0ms	1.1109675046928318e-34	3.1312600000327993e-34

Samples

49.0ms	13×	3	valid
42.0ms	35×	2	valid
23.0ms	32×	1	valid

Compiler

Compiled 2 926 to 930 computations (68.2% saved)

Precisions

Click to see histograms. Total time spent on operations: 109.0ms

adjust: 39.0ms (35.8% of total)

ival-pow2: 16.0ms (14.7% of total)

ival-sinu: 15.0ms (13.8% of total)

ival-cosu: 13.0ms (11.9% of total)

ival-mult!: 11.0ms (10.1% of total)

ival-div!: 7.0ms (6.4% of total)

ival-sqrt: 3.0ms (2.8% of total)

ival-add!: 2.0ms (1.8% of total)

ival-sub!: 1.0ms (0.9% of total)

ival-neg: 1.0ms (0.9% of total)

bsearch195.0ms (0.5%)

Memory

11.2MiB live, 243.7MiB allocated; 23ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
181.0ms	4.105834328467699e-125	1.4599302490356725e-122

Samples

76.0ms	23×	3	valid
56.0ms	72×	1	valid
41.0ms	33×	2	valid

Compiler

Compiled 4 650 to 1 484 computations (68.1% saved)

Precisions

Click to see histograms. Total time spent on operations: 165.0ms

ival-pow2: 49.0ms (29.7% of total)

ival-mult!: 31.0ms (18.8% of total)

ival-cosu: 24.0ms (14.6% of total)

ival-sinu: 23.0ms (14% of total)

adjust: 15.0ms (9.1% of total)

ival-div!: 11.0ms (6.7% of total)

ival-sqrt: 5.0ms (3% of total)

ival-add!: 3.0ms (1.8% of total)

ival-sub!: 2.0ms (1.2% of total)

ival-neg: 2.0ms (1.2% of total)

derivations192.0ms (0.5%)

Memory

-11.3MiB live, 220.6MiB allocated; 25ms collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 1 309 to 135 computations (89.7% saved)

preprocess147.0ms (0.4%)

Memory

12.8MiB live, 116.2MiB allocated; 10ms collecting garbage

Remove

(abs y-scale)

(abs b)

Compiler

Compiled 19 428 to 4 335 computations (77.7% saved)

end0.0ms (0%)

Memory: 0.1MiB live, 0.1MiB allocated; 0ms collecting garbage

start0.0ms (0%)

analyze2.0s (5%)

sample15.3s (38.7%)

explain2.4s (6.1%)

preprocess64.0ms (0.2%)

series910.0ms (2.3%)

rewrite1.8s (4.6%)

eval282.0ms (0.7%)

prune95.0ms (0.2%)

series1.3s (3.3%)

rewrite1.3s (3.4%)

eval875.0ms (2.2%)

prune1.2s (3.2%)

series956.0ms (2.4%)

rewrite1.1s (2.9%)

eval1.1s (2.7%)

prune854.0ms (2.2%)

series2.0s (5%)

rewrite1.2s (3%)

eval1.6s (3.9%)

prune2.1s (5.4%)

regimes330.0ms (0.8%)

regimes8.0ms (0%)

regimes7.0ms (0%)

bsearch136.0ms (0.3%)

bsearch195.0ms (0.5%)

derivations192.0ms (0.5%)

preprocess147.0ms (0.4%)

end0.0ms (0%)

Profiling